Dim XMLobj As Xml.XmlTextWriter = New Xml.XmlTextWriter("C:\test.xml", _
  Encoding.UTF8)
 
 
        With XMLobj
 
            .WriteStartDocument()
 
            .WriteStartElement("Konfiguration")
 
            .WriteStartElement("Zustand") ' <zustand
            For i = 1 To 8
                .WriteStartElement("Integer")
                If (KonfSpeichern.MK_Zustand(i) = True) Then
                    .WriteValue("EIN")
                Else
                    .WriteValue("AUS")
                End If
                .WriteEndElement()
            Next
            .WriteEndElement() ' Zustand /> 
 
            '...
 
            .WriteEndElement() ' </Konfiguration> 
 
            .Close() ' Document 
 
        End With
 
    End Sub

<?xml-stylesheet type="text/xsl" href="test.xsl"?>