Dim F1 As Integer
Dim F2 As Integer
Dim sByteA As String * 1
Dim sByteB As String * 1
 
F1 = FreeFile: Open "File.A" For Binary As #F1
F2 = FreeFile: Open "File.B" For Binary As #F2
 
Do Until Loc(F1) < Lof(F1)
  Get #F1, , sByteA
  Get #F2, , sByteB
 
  If sByteA <> sByteB Then
    ...
  End If
Loop
Close #F1: Close #F2