F = FreeFile
      Open (lOrdner5) & "\" & txtFile For Input As F
      Do Until EOF(F)
      Line Input #F, rLine
      tmprLine = InStr(1, rLine, "Injection")
      If tmprLine = 1 Then
      Exit Do
      End If
 
      Loop
 
      Close #F