Private Sub mdCompare_Click()
Dim sFile1 As String
  Dim sFile2 As String
 
  ' Hier die beiden Dateien eintragen
  sFile1 = "1.txt"
  sFile2 = "2.txt"
 
  ' Dateien miteinander vergleichen
  lblStatus.Caption = "Datei-Vergleich läuft..."
 
  DoEvents
 
  Select Case FileCompare(sFile1, sFile2)
    Case Identical
      lblStatus.Caption = "Dateien sind identisch"
    Case SizeDifferent
      lblStatus.Caption = "Dateigrößen unterscheiden sich!"
    Case ContentDifferent
      lblStatus.Caption = "Datei-Inhalte unterscheiden sich!"
  End Select
End Sub

Public Enum FileCompareStatus
  Identical = 0         ' identisch
  SizeDifferent = 1     ' Dateigröße verschieden
  ContentDifferent = 2  ' Inhalte verschieden
End Enum
 
' zwei Dateien miteinander vergleichen
Public Function FileCompare(ByVal sFile1 As String, _
  ByVal sFile2 As String, _
  Optional ByVal picProgress As Control = Nothing) _
  As FileCompareStatus
 
  Dim F1 As Integer
  Dim F2 As Integer
  Dim sTemp1 As String
  Dim sTemp2 As String
  Dim fSize As Long
  Dim rSize As Long
  Dim lSize As Long
  Dim bResult As Boolean
 
  ' Größe eines einzelnen Blocks
  Const BlockSize = 4096
 
  ' Default-Wert der Funktion
  FileCompare = Identical
 
  ' Dateien öffnen
  F1 = FreeFile: Open sFile1 For Binary As #F1
  F2 = FreeFile: Open sFile2 For Binary As #F2
 
  ' zunächst Dateigröße vergleichen
  If LOF(F1) <> LOF(F2) Then
    FileCompare = SizeDifferent
  Else
    ' Inhalt Blockweise einlesen und miteinander
    ' vergleichen
    fSize = LOF(F1)
    rSize = 0
 
    bResult = False
    While rSize <> fSize And Not bResult
      ' Anzahl einzulesender Bytes
      lSize = IIf(rSize + BlockSize > fSize, _
        fSize - rSize, BlockSize)
 
      ' Variablen vorbereiten
      sTemp1 = Space$(lSize)
      sTemp2 = Space$(lSize)
 
      ' Inhalte einlesen
      Get #F1, , sTemp1
      Get #F2, , sTemp2
 
      ' Inhalte vergleichen
      bResult = (sTemp1 <> sTemp2)
      rSize = rSize + lSize
 
      ' Fortschritt anzeigen
      If Not picProgress Is Nothing Then
 
      End If
    Wend
 
    If bResult Then _
      FileCompare = ContentDifferent
  End If
 
  ' Dateien wieder schliessen
  Close #F1: Close #F2
End Function