Wie textbox in textdatei !?!

[alibabass]

Hi comm,

ICh habe das problem das ihc mir ein passwort gen coden will der mir die daten dich ich da in eine textbox eingebe in eine txt packt und speihert hier mal ein code schnipsel und das prob is das er das nciht macht und ich mir nicht erklären kann wie ich das problem löse sufu hat nichts gebracht und google gibt mir nur scheißhoffe ihr könnt mir helfen.

 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

[Nosferatu.]

Google:

// 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

Ich habe was gefunden, mit google