Public Function durchsucheDatei(ByVal sSuchString As String, ByVal sDatei As _
  String) As Boolean
 
  Dim FF As Integer
  Dim sSatz As String
  Dim bVorhanden As Boolean
 
 
  bVorhanden = False
  FF = FreeFile
 
  'Datei öffnen
  Open sDatei For Input As FF
 
    'Datei bis zum Ende durchlaufen oder bis der Suchstring gefunden wurde
    While Not EOF(FF) And bVorhanden = False
      'Eine Zeile aus der Datei lesen
      Line Input #f, sSatz
 
      If sSatz <> "" Then
        'Ist der SuchString in der Zeile vorhanden
        If InStr(sSatz, sSuchString) > 0 Then
          bVorhanden = True
        End If
      End If
    Wend
  Close FF
 
  If bVorhanden = True Then
    durchsucheDatei = True
  Else
    durchsucheDatei = False
  End If
 
End Function