Friend Sub WriteinXML(ByVal strValue As String, ByVal strElement As String)
        'XML erstellen
        xml = New Xml.XmlDocument()
        xml.LoadXml("<Root/>")
 
        'Neue Nodes setzen
        xmlKD = xml.CreateElement(strElement)
        xmlText = xml.CreateTextNode(strValue)
 
        xmlKD.AppendChild(xmlText)
        xml.DocumentElement.AppendChild(xmlKD)
 
        xml.Save(strPfad)
    End Sub