'existiert Text-Datei ?
If Dir$(App.Path & "\text.txt", vbNormal) <> "" Then
 
 Open App.Path & "\text.txt" For Input As #1
  While Not EOF(1)
   Line Input #1, sLine
   Text1.Text = Text1.Text & sLine & vbCrLf
Wend
Close #1
 
'Fehlermeldung, wenn Datei nicht gefunden wurde
Else
 MsgBox "Datei nicht gefunden!"
 
End If