Private FileNummer As Byte
 
Private Sub Form_Load()
 
     FileNummer = Freefile()
     On Error Resume Next
     Open "Pfad_Dateiname" For Input As #FileNummer
      If Err.Number > 0 Then 
           MsgBox "Fehler beim öffnen der Datei!",vbExclamation, "Dateifehler"
      End If
 
End Sub
 
Private Sub Command1_Click()
   If Not EOF(FileNummer) Then
         Line Input #FileNummer, Text1.Text
   ELse
         MsgBox "Ende der Datei ist erreicht!",vbInformation,"Dateiende"
   End If
End Sub