Private file As String = "C:\Users\DaveS\Test\xmlcdata.txt"
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        TextBox1.Text = "This is a short " & vbCrLf & "explanation " & vbCrLf & _
          " of this so-called ""book"""
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        Dim doc As New XmlDocument()
        doc.LoadXml("<book genre='novel' ISBN='1-861001-57-5'>" & _
                    "<title>Pride And Prejudice</title>" & _
                    "</book>")
 
        Dim elem As Xml.XmlNode = doc.CreateElement("desc")
        elem.InnerText = TextBox1.Text
        doc.DocumentElement.AppendChild(elem)
        Using ostrm As New IO.StreamWriter(file)
            doc.Save(ostrm)
        End Using
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles _
      Button2.Click
        Dim doc As New XmlDocument()
        Using istrm As New IO.StreamReader(file)
            doc.Load(istrm)
        End Using
        TextBox2.Text = doc.DocumentElement.ChildNodes(1).InnerText
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist