Dim datei As String = "C:\Users\DaveS\Test\myxml.xml"
        Dim xtw As New XmlTextWriter(datei, System.Text.Encoding.UTF8)

        Dim xs As New XmlWriterSettings
        xs.Encoding = System.Text.Encoding.UTF8
        Dim xw As XmlWriter = XmlWriter.Create(datei, xs)

________
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