Function ReadLogFile(ByVal sLogFile As String) As Long
   Dim nLineCounter    As Long
   Dim f               As Integer
   Dim sInstring       As String
   Dim A_Range         As String
   Dim B_Range         As String
   Dim C_Range         As String
   Dim vErg            As Variant
 
   f = FreeFile
   On Error Resume Next
   Open sLogFile For Input As #f
   If Err.Number > 0 Or f = 0 Then Exit Function
   Do While Not EOF(f)
          Input #f, sInstring
          If sInstring <> "" Then
               If Left(sInstring, 2) = "AN" Then
                   nLineCounter = nLineCounter + 1
                   With TextMapp
                     .InText = sInstring
                     .SplitByIndex 4, 5
                     A_Range = .GetStringFromIndex(1)
                     B_Range = .GetStringFromIndex(4)
                     C_Range = .GetStringFromIndex(5)
                   End With
                End If
          End If
   Loop
   Close #f
   ReadLogFile = nLineCounter
End Function