Wie textbox in textdatei !?!

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim fileno As Integer, FileName As String
        fileno = FreeFile()
        Dim tFileOpen As New System.Windows.Forms.SaveFileDialog
        With tFileOpen
            .CheckPathExists = True
            .DefaultExt = "txt"
            .ShowHelp = False
            .FileName = "unbenannt1"
            .Title = "Bitte Datei wählen"
            .Filter = "Textdateien|*.txt"
            Select Case .ShowDialog
                Case Windows.Forms.DialogResult.OK
                    .FileName = .FileName
                Case Windows.Forms.DialogResult.Cancel
                    Exit Sub
            End Select
        End With
        FileOpen(fileno, "filename", OpenMode.Output, OpenAccess.Write, OpenShare.LockWrite)
        PrintLine(fileno, TextBox1.Text)
        PrintLine(fileno, TextBox2.Text)
        PrintLine(fileno, TextBox3.Text)
        PrintLine(fileno, TextBox4.Text)
        PrintLine(fileno, TextBox5.Text)

    End Sub

// Speichern im Close Event:
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        My.Computer.FileSystem.WriteAllText("C:\dateiname.txt", TextBox1.Text, False)
    End Sub
// Laden onFormLoad
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Text = My.Computer.FileSystem.ReadAllText("C:\dateiname.txt")
    End Sub