Dim F As Integer
Dim N As Integer
Dim sLine1 As String
Dim sLine2 As String
Dim lCount As Long
Dim bResult As Boolean
 
F = FreeFile: Open "Date1.txt" For Input As #F
N = FreeFile: Open "Datei2.txt" For Input As #N
 
bResult = True
Do Until Eof(F) Or Eof(N)
  lCount = lCount + 1
 
  Line Input #F, sLine1
  Line Input #N, sLine2
 
  If sLine1 <> sLine2 Then
    MsgBox "Datei unterscheidet sich in Zeile " & Cstr(lCount)
    bResult = False
    Exit Do
  End If
Loop
 
If bResult Then
  If Eof(F) <> Eof(N) Then
    bResult = False
    MsgBox "Dateien unterscheiden sich in der Anzahl gespeicherter Zeilen!"
  End If
End If
 
Close #F: Close #N