Basteln Sie also für dieses Beispiel (Datei schreiben) einen Commandbutton und drei Textfelder, dann (Datei auslesen) einen Commandbutton und ein Textfeld sowie (Datei auslesen) einen Commandbutton und eine Listbox auf Ihre Form.

Sub Command1_Click ()
Dim Gesamt As String

Gesamt = Text1.Text + "|" + Text2.Text + "|" + Text3.Text

'Öffnen der Datei / Datei1 = Dateiname / ohne Pfad = aktuelles Verzeichnis
Open "Datei1" For Append As #1  ' Append = Schreiben,Anhängen (auch neu)
   Print #1, Gesamt                     'Schreibt nun den Text in die Datei
Close #1                                   'Schließen der Datei

End Sub

Sub Command2_Click ()
Dim Gesamt As String

'Öffnen der Datei / Datei1 = Dateiname / ohne Pfad = aktuelles Verzeichnis
Open "Datei1" For Input As #1     'Input = Lesen
   Line Input #1, Gesamt
   Text4.Text = Gesamt
Close #1                                   'Schließen der Datei

End Sub

Sub Command3_Click ()
Dim Gesamt As String

List1.Clear                                 'Säubert die Listbox vor dem neuen füllen

'Öffnen der Datei / Datei1 = Dateiname / ohne Pfad = aktuelles Verzeichnis
Open "Datei1" For Input As #1     'Input = Lesen

    Do While Not EOF(1)               'Schleife, bis alle Datensätze gelesen sind
       Line Input #1, Gesamt
       List1.AddItem Gesamt          'fügt die gelesenen Daten in eine Listbox ein
    Loop
Close #1

End Sub