Line Input #F, sLine

Private Sub Command1_Click()
  Dim DirName       As String
  Dim F             As Integer
  Dim sLine         As String
  Dim sPfad         As String
  ' ListBox löschen
  List1.Clear
  sPfad = "c:Eigene Dateien"
  DirName = Dir(sPfad + "*.*", vbNormal)
  ' While Schleife bis keine neue Datei im Verzeichnis gefunden wird
  While DirName <> ""
    If DirName <> "." And DirName <> ".." Then
      ' Datei öffnen und zweite Zeile auslesen
      F = FreeFile
      ' Die gefundene Datei öffnen
      Open sPfad + DirName For Input As #F
      If LOF(F) > 0 Then
        ' Datei ist größer als 0 Bytes
        ' Die erste Zeile einlesen
        Line Input #F, sLine    ' Zeile 1
        If Not EOF(F) Then ' Datei hat weitere Zeilen
          ' Die zweite Zeile einlesen
          Line Input #F, sLine  ' Zeile 2
          If InStr(LCase$(sLine), "hallo") > 0 Then
            ' "Hallo" in der 2. Zeile vorhanden
            If Not EOF(F) Then ' Datei hat weitere Daten
              ' Nun die dritte Zeile einlesen
              Line Input #F, sLine  ' Zeile 3
              If InStr(LCase$(sLine), "hallo2") > 0 Then
                ' "Hallo2" in der 3. Zeile vorhanden
                List1.AddItem DirName
              End If
            End If
          End If
        End If
      End If
      Close #F
    End If
    DirName = Dir
  Wend
End Sub