Private Sub Schreiben()
 
        Dim file As System.IO.StreamWriter
        file = My.Computer.FileSystem.OpenTextFileWriter( _
          My.Application.Info.DirectoryPath & "\Data\" & "Test.txt", True)
        file.WriteLine("Here is the first string." & vbNewLine & vbNewLine & _
        TextBox1.Text)
        file.Close()
 
    End Sub