Dim F As Integer
Dim sText1 As String
Dim sText2 As String
Dim sText3 As String
Dim sTemp As String
Dim bResult As Boolean
 
bResult = False
 
' 1. Datei auslesen (3 Textfelder)
F = FreeFile
Open "Datei1" For Binary As #F
Seek #F, 1000
Get #F, 10, sText1 ' Bsp. 10 Bytes
 
Seek #F, 2000
Get #F, 7, sText2 ' Bsp. 7 Bytes
 
Seek #F, 2500
Get #F, 12, sText3 ' Bsp. 12 Bytes
Close #F
 
' jetzt mit den Textfeldern der 2. Datei vergleichen
F = FreeFile
Open "Datei2" For Binary As #F
Seek #F, 1200
Get #F, 10, sTemp
 
If sText1 = sTemp Then
  Seek #F, 2250
  Get #F, 7, sTemp
 
  If sText2 = sTemp Then
    Seek #F, 2900
    Get #F, 12, sTemp
 
    If sText3 = sTemp Then
      bResult = True
    End If
  End If
End If
Close #F
 
If bResult Then
  ' Textfelder sind identisch
  ...
End if

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de