<?xml version="1.0" encoding="UTF-16"?>
<Personen>
   <Person Vorname="Hans" Name="Meyer" Titel="Dr."/>
   <Person Vorname="Carlos" Name="Schmidt" Titel=""/>
</Personen>

<?xml version="1.0" encoding="UTF-16"?>
<Person>
   <Vorname>Hans</Vorname>
   <Name>Meyer</Name>
   <Titel>Dr.</Titel>
   <Vorname>"Carlos" Name="Schmidt" Titel=""/>
</Person>
 
<Person>
   <Vorname>Carlos</Vorname>
   <Name>Schmidt</Name>
   <Titel></Titel>
</Person>

    Private Sub XMLWriter()
 
        ' Auswahl einer Kodierungsart für die Zeichenablage 
        Dim enc As New System.Text.UnicodeEncoding
 
        ' XmlTextWriter-Objekt für unsere Ausgabedatei erzeugen: 
        Dim XMLobj As Xml.XmlTextWriter _
          = New Xml.XmlTextWriter("c:\temp\quickie.xml", enc)
 
        With XMLobj
 
            ' Formatierung: 4er-Einzüge verwenden 
            .Formatting = Xml.Formatting.Indented
            .Indentation = 4
 
            ' Dann fangen wir mal an: 
            .WriteStartDocument()
 
            ' Beginn eines Elements "Personen". Darin werden wir mehrere 
            ' Elemente "Person" unterbringen. 
            .WriteStartElement("Personen")
 
            ' Hier kommt das erste Element "Person". Eine Person hat 
            ' in unserem einfachen Beispiel einen Titel, einen Nach- 
            ' namen und einen Vornamen. Als Demo soll uns das genügen. 
            .WriteStartElement("Person") ' <Person 
            .WriteAttributeString("Titel", "Dr.")
            .WriteAttributeString("Name", "Meyer")
            .WriteAttributeString("Vorname", "Hans")
            .WriteEndElement() ' Person /> 
 
            ' Hier kommt (noch immer im Element "Personen" das zweite 
            ' Element "Person". 
            .WriteStartElement("Person") ' <Person 
            .WriteAttributeString("Titel", "")
            .WriteAttributeString("Name", "Schmidt")
            .WriteAttributeString("Vorname", "Carlos")
            .WriteEndElement() ' Person /> 
 
            ' Nachdem das Element "Personen" zwei Elemente "Person" 
            ' erhalten hat, beenden wir die Ausgabe für "Personen"... 
            .WriteEndElement() ' </Personen> 
 
            ' ... und schließen das XML-Dokument (und die Datei) 
            .Close() ' Document 
 
        End With
 
    End Sub