' Textdatei in String laden
Dim F As Integer
Dim sBuffer As String
 
F = FreeFile
Open "Pfad\Textdatei" For Binary As #F
sBuffer = Space$(Lof(F))
Get #F, , sBuffer
Close #F

' im String nach Wort suchen
Dim sLookFor As String
Dim nPos As Long
sLookFor = "Lubkid"
nPos = InStr(sBuffer, sLookFor)

' wenn vorhanden, 55 Bytes überspringen und dann 67 Bytes auslesen
If nPos > 0 Then
  nPos = nPos + 55
  MsgBox Mid$(sBuffer, nPos, 67)
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de