Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Dim enc As New System.Text.UnicodeEncoding
        Dim XMLobj As Xml.XmlTextWriter = New Xml.XmlTextWriter("D:\test.xml", _
          enc)
        With XMLobj
 
            .Formatting = Xml.Formatting.Indented
            .Indentation = 4
            .WriteStartDocument()
            .WriteStartElement("Personen")
 
            'Daten werden geschrieben
            .WriteStartElement("Person")
            .WriteAttributeString("Titel", TextBox1.Text)
            .WriteAttributeString("Name", TextBox1.Text)
            .WriteAttributeString("Vorname", TextBox1.Text)
            .WriteEndElement()
 
            .Close()
 
        End With
 
 
    End Sub
 
End Class