Private Sub erzeugeXMLDatei(ByVal text As String, ByVal dateipfad As String)
    Dim sw As StreamWriter
    Try
        sw = New StreamWriter(dateipfad)
        sw.Write(text)
    Catch e As Exception
            intFehler = 2
            strFehler = e.Message
    Finally
        If Not sw Is Nothing Then
            sw.Close()
        End If
    End Try
 
End Sub