Visual Basic - NUMERO DE REGISTROS EN UN ARCHIVO BINARIO?

HOLA. NECESITO HACER UNA BUSQUEDA EN UN ARCHIVO BINARIO, Y MIENTRAS BUSCO Y PASO POR TODAS SUS POSICIONES, NECESITO CON EL GET IR VIENDO LA INFORMACION A VER SI ESTA... PERO NO SE HASTA DONDE VOY A LLEGAR.. COMO HAGO PARA SABER EL NUMERO DE REGISTROS QUE TIENE MI ARCHIVO, PAR APODER HACER UN CICLO DESDE 1 HASTA ESE NUMERO DE REGISTRO ACTUAL..

Cuando se lee un archivo binario que no puede calcularse mediante,

Total Ragistros= (tamaño de archivo) / (tamaño de estructura)

Se utiliza la funcion LOF(#archivo)

Dim Posicion&, Buffer$, FF&, Tam&
FF = FreeFile
Open "archivo.dat" For Binary As #FF
Do While Posicion < LOF(FF)
Tam = Len(ESTRUCT) 'Tamaño de la estructura a leer...en bytes.
Get #FF, Tam, ESTRUCT
Posicion = Loc(FF) 'Posicion actual...
Loop
Close #FF

Espero que te sirva...SALU2.