Visual Basic - Recorrido inverso de un txt

Buenas tardes,
estoy buscando una forma de recorrer un archivo txt hasta que encuentre un registro igual a otro registro en otra tabla, PERO a la inversa!
no quiero usar este while sino un for o algo, pero necesito una funcion que me diga cuantos items tiene este archivo de texto (file.count, file.rows, o algo asi ¿? ):S
estoy tarbajando en el siguiente codigo. Si bien anda, no es lo que busco. se entiende?
necesito buscar en forma decreciente para no recorrer todo el txt.

Dim fileName2, file, FSO
Dim commandText
Dim count, flag
flag = 0
'Se establece la conexión
Set conn = CreateObject("ADODB.Connection")
conn.Open = connectionStringSyb
Set rs = CreateObject("ADODB.Recordset")

commandText = "select Mensaje from dbo.tabla1"
rs.Open commandText, conn, adOpenKeyset

'Se instancia el objeto File System
Set FSO = CreateObject("Scripting.FileSystemObject")

fileName2 = DTSGlobalVariables("fileName2").Value

Set file = FSO.OpenTextFile(fileName2, ForReading, True)

While Not file.AtEndOfStream and rs(0) <> line

line = file.ReadLine
cmd = "insert into base1..tabla2 values('" & line & "')"

If rs(0) <> line then and flag = 0 then

flag = 1
Else
If flag = 1 then
conn.Execute (cmd)
End if
End If
Wend

desde ya muchas gracias al que me tire un centro :P

A VER SI NOS ENTERAMOS!!!!!!!!!!!!!!!!!!!!OSTIEJAS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Trabajas con Visual Basic Script, NO!!!!. Ya que escribes en el foro equivocado por lo menos podrías indicarlo.

Te recomiendo que no deseches la idea del while para recorrer el archivo en inversa.

ups!