Dim xmlFilename As String = "Bestandsliste.xml"
Dim Datenstrom As New System.IO.FileStream(xmlFilename, _
  System.IO.FileMode.Create)
 
' XML File schreiben
ds.WriteXml(Datenstrom)
' Datenstrom schliessen
Datenstrom.Close()

-------------------------------------------------
Der Weg ist das Ziel - Konfutius, China
Das Ziel ist weg - Tom Cruise, Top Gun
-------------------------------------------------