Dim xml As Xml.XmlDocument
        Dim xmlKD As Xml.XmlNode
        Dim xmlText As Xml.XmlText
 
        'XML erstellen
        xml = New Xml.XmlDocument()
        xml.LoadXml("<Root/>")
        xml.Save(strPfad)
 
        'Neue Nodes setzen
        xmlKD = xml.CreateElement(txtWriteNodeName.Text)
        xmlText = xml.CreateTextNode(txtWriteWert.Text)
        xmlKD.AppendChild(xmlText)
        xml.DocumentElement.AppendChild(xmlKD)
 
        xml.Save(strPfad)