Dim settings As XmlWriterSettings = New XmlWriterSettings
        settings.Indent = True 
        settings.NewLineOnAttributes = True
        Dim writer As XmlWriter = XmlWriter.Create("C:\MyDoc.xml", settings)
With writer
       .WriteStartDocument()
       .WriteStartElement("Element")
       .WriteStartAttribute("Attribute")
       .WriteValue("Value")
       .WriteEndAttribute()
       .WriteEndElement()
       .WriteEndDocument()
       .Close()
End With ' Und das End with nicht vergessen. Hurra!