Sub IniDateiErstellen(ByVal DateinameMitPfad As String)
        Dim objDateiMacher As StreamWriter
        Dim strWinVerz As String = "D:\Temp"
        objDateiMacher = New StreamWriter(strWinVerz)
        objDateiMacher.Write(DateinameMitPfad)
        objDateiMacher.Close()
        objDateiMacher = Nothing
    End Sub