'Annahme: Es sollen drei Spalten beim Zeilenvergleich einbezogen werden ...
Dim pruefspalten(1 To 3) As Integer
pruefspalten(1) = 3  'i4
pruefspalten(2) = 4  'i5
pruefspalten(3) = 5  'i6
 
'Annahme: die Spalten müssen sich unterscheiden 
'Je eine Zeile vor und nach der Prüfzeile sollen ggf. ausgegeben werdem
If Not CheckLines5("text1.txt", "text2.txt", False, 1, 1, pruefspalten) Then
    MsgBox "Checklines ist gescheitert"
End If
 
'Annahme: die Spalten müssen gleich sein
'Je zwei Zeilen vor und drei Zeilen nach der Prüfzeile sollen ggf. ausgegeben 
' werdem
If Not CheckLines5("text1.txt", "text2.txt", true, 2, 3, pruefspalten) Then
    MsgBox "Checklines ist gescheitert"
End If