F = FreeFile
      Open (lOrdner5) & "\" & txtFile For Input As F
      Do
      Line Input #F, rLine
      If rLine = "Injection Date  : 12-Aug-08, 14:46:29                  Inj : " & _
        " 1" Then
      Exit Do
      End If
      Debug.Print rLine
 
      Loop
 
      Close #F