Kontrollere tekstfil

Hejsa

Jeg har en tekstfil med data i flg. format:

ib|123
jens|456
rasmus|789

Jeg har så fundet frem til den kode til validering:

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("c:\fil.txt")
While Not objFile.AtEndOfStream
  readLine = objFile.ReadLine
  opsplittet = split(readline, "|")

Do Until BrugerTaeller = 3
  BrugerInput = InputBox("Indtast brugernavn:","Brugernavn")
  If opsplittet(0) = BrugerInput Then
    BrugerTaeller = 3
Do Until KodeordTaeller = 3
  KodeordInput = InputBox("Indtast kodeord:","Kodeord")
  If opsplittet(1) = KodeordInput Then
  MsgBox "Tillykke"
  KodeordTaeller = 3
  Else
    MsgBox "Forkert kodeord"
    KodeordTaeller = KodeordTaeller + 1
  End If
Loop
  Else
    MsgBox "Forkert brugernavn"
    BrugerTaeller = BrugerTaeller + 1
  End If
Loop
Wend

Problemet er så at den kun kontrollere den første linie i filen. Hvordan får jeg den til at kontrollere på allesammen ?