Læse fra textfil hvor

Jeg skal læse en masse linjer i en komma sep. fil. De linjer der er vigtige for mig starter alle med 2, men hvordan kan jeg lave nedenstående kode om til en where sætning?

Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("fil")
Set f = fso.OpenTextFile(filespec,1)

function ReplaceT (arrM)
ReplaceT = Replace(Replace(arrM,"""",""),"'","")
end function

Do While not f.AtEndOfStream
arrM = Split(f.ReadLine,",")

Conn.execute("Insert into Kunder (KundeNr,Kundenavn) VALUES ('"&ReplaceT(arrM(3))&"')")

Loop

f.Close