Dim ff as Integer
Dim sLinks as String, sRechts as String
ff = FreeFile
Open "C:\wasweissich.txt" For Input as ff
    Do While Not EOF(1)
        Line Input #ff,a
        sLinks = Left(a,InStr(1,a,":") - 1)
        sRechts = Mid(a,InStr(1,a,":") + 1)
        '...
        'Code zum Bearbeiten und Vergleichen und was weiss ich was noch
        '...
    Loop 'Nächste Zeile einlesen
Close ff