Dim XMLWrt As New XmlTextWriter(StrFile, System.Text.Encoding.UTF8)
                    XMLWrt.WriteStartDocument()
                    XMLWrt.WriteStartElement("root") 'creazione radice
                    writer.WriteAttributeString("rrr", valore)
                    XMLWrt.WriteStartElement("dati-personali") ' creazione primo elemento (nodo)                    
                    XMLWrt.WriteAttributeString("nome", A)
                    XMLWrt.WriteElementString("cognome", B)
                    XMLWrt.WriteElementString("telefono", C)
                    XMLWrt.WriteEndElement() 'Chiude il nodo ---> dovrai crearli tanti nodi dovrai inserire                    
                    XMLWrt.WriteEndDocument() 'chiude la radice del file
                    XMLWrt.Flush()
                    XMLWrt.Close()