Dim myTW As New XmlTextWriter(Console.Out)
        'Dim myTW As New XmlTextWriter("myTeam.xml", Nothing)
        ' Setzen Sie den <?xml> Versionskopf ein
        myTW.WriteStartDocument()
        myTW.Formatting = Formatting.Indented
        ' Öffnen Sie den Wurzelknoten
        myTW.WriteStartElement("Team")
        ' Öffnen Sie einen Datenknoten
        myTW.WriteStartElement("Spieler")
        myTW.WriteAttributeString("Name", "George Zip")
        myTW.WriteAttributeString("Position", "QB")
        myTW.WriteElementString("Spitzname", "Zippy")
        myTW.WriteElementString("Spielernummer", _
          XmlConvert.ToString(7))
        ' Schließen Sie den Datenknoten
        myTW.WriteEndElement()
        ' Schließen Sie den Wurzelknoten
        myTW.WriteEndElement()
        myTW.WriteEndDocument()
        myTW.Close()