Dim T$, i&, j&, Lst$()
 
Open "Pfad_der_Datei" For Input As #1
  T = Input(LOF(1), #1)
Close #1
Lst = Split(T, vbCrLf)
For i = 0 To UBound(Lst)
  If Trim$(Lst(i)) = "AN" Then Exit For
Next i
MsgBox "1. AN in Zeile: " & (i + 1)
For j = i + 1 To UBound(Lst)
  Select Case Trim$(Lst(j))
    Case "AUS"
      MsgBox "AUS in Zeile: " & (j + 1)
      Exit For
    Case "AN"
      MsgBox "2. AN in Zeile: " & (j + 1)
      Exit For
  End Select
Next j

Gruss,

Zardoz