<code>Dim F As Integer
Dim sLine As String
Dim lLen As Long
Dim lCount As Long
 
F = FreeFile
Open "DeineDatei.txt" For Input As #F
 
<font color=green>' Datei zeilenweise auslesen</font>
lCount = 0
While Not Eof(F)
  lCount = lCount + 1
  Line Input #F, sLine
 
  <font color=green>' Letztes Zeichen der Zeile ein "A"?</font>
  If Right$(sLine, 1) = "A" Then
    <font color=green>' Zeilenlänge</font>
    lLen = Len(sLine)
 
    <font color=green>' Zeilenlänge muss mindestens 8 sein (A######A)</font>
    If lLen >= 8 Then
      If Mid$(sLine, lLen - 7, 1) = "A" Then
        <font color=green>' Zeile enthält das Suchmuster</font>
        MsgBox "Zeile " & CStr(lCount) & vbCrLf & _
          "Suchmuster gefunden: " & Mid$(sLine, iLen - 7, 8)
      End If
    End If
  End If
Wend
Close #F</code>