Sub speichern_Test()
        With Form1
            Dim dateiname As String = "test"
 
            'datei(erstellen)
            Dim pfad As String = My.Application.Info.DirectoryPath
            Dim datei As FileInfo = New FileInfo(dateiname & ".txt")
            Dim writer As StreamWriter
            If datei.Exists Then
                writer = datei.AppendText
 
            Else
                writer = datei.CreateText()
                writer.WriteLine("Mit " & dateiname & " um Geld gespielt")
                writer.WriteLine("__________________________")
                MsgBox("Textdatei " & .TextBox2.Text & "angelegt")
 
            End If
            If .TextBox1.Text = "" Then MessageBox.Show("text eingeben") : Exit _
              Sub
            Dim neu As Decimal = .TextBox15.Text
            Dim alt As Decimal = .TextBox18.Text
            writer.WriteLine("Dateiname: " & .Label3.Text)
            writer.WriteLine("Datum: " & .Label2.Text)
            writer.WriteLine("  Geldbetrag: Übertrag: " & alt)
            writer.WriteLine("+ Geldbetrag:      Neu: " & neu)
            writer.WriteLine("_______________________________")
            writer.WriteLine("= Geldbetrag:  Aktuell: " & ((alt + neu) & "   " & _
              ""))
            writer.WriteLine( _
            "*********************************************************")
            writer.WriteLine( _
            "*********************************************************")
            writer.Close()
 
            System.Diagnostics.Process.Start(pfad + "\" + datei.Name)
            System.Diagnostics.Process.Start(pfad)
 
        End With
    End Sub

FileOpen(1, "TESTFILE", OpenMode.Output) ' Open file for output.
Write(1, "This is a test.")  ' Print text to file.
WriteLine(1)  ' Print blank line to file.
WriteLine(1, "Zone 1", TAB(), "Zone 2")   ' Print in two print zones.
WriteLine(1, "Hello", " ", "World")     ' Separate strings with space.
WriteLine(1, SPC(5), "5 leading spaces ")    ' Print five leading spaces.
WriteLine(1, TAB(10), "Hello")   ' Print word at column 10.
FileClose(1)   ' Close file.

FileOpen(1, "TESTFILE", OpenMode.Output) ' Open file for output.

blutiger anf?nger
ich weiss was ich will
aber eben nicht wie es geht