zähler = 0
 
Open "C:\text1.txt" For Input As #1
Open "C:\text2.txt" For Input As #2
     Do While Not EOF(1) Or Not EOF(2)
            zähler = zähler +1            
            Line Input #1, zeile1
            Line Input #2, zeile2
            If zeile1 <> zeile2 Then
                     MsgBox "Die Zeile " & zähler & " ist unterschiedlich!"
            End If
      Loop
 
Close #1
Close #2