Private Sub Command1_Click()
 
    Dim ff As Integer
 
    'text laden und anzeigen
    ff = FreeFile 'nächste freie dateinummer
    If Dir("h:\temp\text.txt") <> "" Then   'datei nur laden wenn diese auch 
    ' vorhanden ist
        Open "h:\temp\text.txt" For Input As #ff
            Text1.Text = Input(LOF(ff), #ff)
        Close #ff
    End If
 
End Sub

Private Sub Command2_Click()
 
    Dim ff As Integer
 
    'text speichern
    ff = FreeFile
    Open "h:\temp\text.txt" For Output As #ff
        Print #ff, Text1.Text
    Close #ff
 
End Sub