Dim Datei As String
Dim zeichen As String
Dim xF As Integer
Datei = App.Path & "\wrt.txt"
xF = FreeFile
 
Open Datei For Input As #xF
  While Not EOF(xF)
    Line Input #xF, zeichen
    MsgBox zeichen
  Wend
Close #xF