Dim xw As New XmlTextWriter(Application.StartupPath & "\MeineXML.xml", _
          System.Text.Encoding.Default)
 
        xw.Formatting = Formatting.Indented
        xw.WriteStartDocument()
        xw.WriteStartElement("Gästeliste")
 
        xw.WriteStartElement("Item1")
        xw.WriteValue("xxüöäÜÖÄßxx")
        xw.WriteEndElement()
        xw.WriteEndElement()
        xw.Close()
 
        Dim xr As New XmlTextReader(Application.StartupPath & "\MeineXML.xml")
        Do While xr.Read
            Try
                If xr.HasValue AndAlso xr.NodeType <> XmlNodeType.Whitespace Then
                    Debug.WriteLine("Element " & xr.Name & "=" & xr.Value)
                End If
            Catch ex As Exception
            End Try
        Loop
        xr.Close()

________
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