Private Function TextStreamWriter(ByVal strStreamText As String) As Boolean
        '
        'Schreibt einen String in die Datei
        '
        Dim strFilenme As String = "Deine Datei"
        Dim objStream As FileStream
        Dim objWriter As StreamWriter
        Dim objDat As Object
        Try
           objDat = File.Create(strFilenme)    'Der Teil fällt bei Dir weg
           objDat.close()                      'Der auch
           objStream = New FileStream(strFilenme, FileMode.Open, _
             FileAccess.Write)
           objWriter = New StreamWriter(objStream)
           objWriter.Write(strStreamText)
           objWriter.Close()
           objStream.Close()
 
           Return True
       Catch
           Return False
       End Try
    End Function