'// xml lesen
        Dim xd As New Xml.XmlDocument()
        xd.Load(New Xml.XmlTextReader("C:\file.xml"))
        For Each node As Xml.XmlNode In xd.ChildNodes
            Debug.WriteLine(node.Name + " : " + node.InnerText)
        Next
 
        '// xml schreiben
        Dim xd As New Xml.XmlDocument
        Dim xw As New Xml.XmlTextWriter("C:\file.xml", _
          System.Text.Encoding.UTF8)
        Dim xn As Xml.XmlNode = xd.CreateElement("element1")
        xn.InnerText = "erstes element mit umlauten ä,ü,ß"
        xd.AppendChild(xn)
        xd.Save(xw)
        xw.Close()