Dim F As Integer
Dim sInhalt As String
Dim lPos As Long
Dim sWert As String
 
F = FreeFile
Open "LogFile" For Binary As #F
sInhalt = Space$(Lof(F))
Get #F, , sInhalt
Close #F
 
lPos = InStr(sInhalt, "4142")
If lPos > 0 Then
  If Mid$(sInhalt, lPos + 4, 1) = "," Then
    sWert = Mid$(sInhalt, lPos + 5, 1)
  End If
End If