<font color=green>' Manager auslesen</font>
  Dim F As Integer
  Dim sLine As String
  Dim sFile As String
  Dim sVerein As String
  Dim sManager As String
 
  <font color=green>' Hier stehen alle Infos drin</font>
  sFile = App.Path & "Test.txt"
 
  <font color=green>' Gesuchter Verein</font>
  sVerein = "Bayer Leverkusen"
 
  F = FreeFile
  Open sFile For Input As #F
  While Not EOF(F) And sManager = ""
    Line Input #F, sLine
    If Left$(sLine, Len(sVerein)) = sVerein Then
      <font color=green>' Verein gefunden</font>
      Line Input #F, sLine    ' Allgemein
      Line Input #F, sLine    ' Manager
      sManager = Mid$(sLine, 10)
      sManager = Left$(sManager, InStr(sManager, "!") - 1)
    End If
  Wend
  Close #F
 
  MsgBox "Manager von " & sVerein & vbCrLf & sManager