Private Sub XMLWriter()
 
        'Hier wird das Speichern über den XMLWriter realisiert
 
 
        ' Auswahl einer Kodierungsart für die Zeichenablage 
        Dim enc As New System.Text.UnicodeEncoding
 
        ' XmlTextWriter-Objekt für die Ausgabedatei erzeugen: 
        Dim XMLobj As Xml.XmlTextWriter _
          = New Xml.XmlTextWriter("daten.xml", enc)
 
        With XMLobj
 
            ' Formatierung: 4er-Einzüge verwenden 
            .Formatting = Xml.Formatting.Indented
            .Indentation = 4
 
            .WriteStartDocument()
 
            ' Beginn eines Elements. Darin werden mehrere Elemente 
            ' untergebracht. 
            .WriteStartElement("Zeitanzeige")
 
            ' Hier kommt das erste Element "Projekte"
            .WriteStartElement("Projekte")
            .WriteAttributeString("1", Projekt1.Text)
            .WriteAttributeString("2", Projekt2.Text)
            .WriteAttributeString("3", Projekt3.Text)
            .WriteAttributeString("4", Projekt4.Text)
            .WriteAttributeString("5", Projekt5.Text)
            .WriteEndElement() 'Schliessen des Elemts
 
            ' Hier kommt (noch immer im Element "Zeitanzeige") das zweite 
            ' Element "Zeiten". 
            .WriteStartElement("Zeiten")
            .WriteAttributeString("1", Zeitanzeige1.Text)
            .WriteAttributeString("2", Zeitanzeige2.Text)
            .WriteAttributeString("3", Zeitanzeige3.Text)
            .WriteAttributeString("4", Zeitanzeige4.Text)
            .WriteAttributeString("5", Zeitanzeige5.Text)
            .WriteEndElement() 'Schliessen des Elemts
 
            ' Hier kommt (noch immer im Element "Zeitanzeige") das dritte 
            ' Element "Statistik". 
            .WriteStartElement("Statistik")
            .WriteAttributeString("1", Auslastung.Text)
            .WriteAttributeString("2", Übertrag.Text)
            .WriteAttributeString("3", SollStunden.Text)
            .WriteAttributeString("4", Iststunden.Text)
            .WriteEndElement() 'Schliessen des Elemts
 
            ' Nachdem das Element "Zeitanzeige" drei Elemente "Zeitanzeige" , 
            ' "Statistik"
            ' und("Zeit") erhalten hat, beenden wir die Ausgabe für 
            ' "Zeitanzeige"... 
            .WriteEndElement() 'Schliessen des Elemts
 
            ' Schließen des XML-Dokument (und die Datei) 
            .Close()
 
        End With
 
    End Sub

greetz

Steffen