Visual Basic - Recorrer ficheros de texto

Necesito recorrer un fichero de texto buscando y anotando la posicion de determinadas cadenas de texto incluidas en él.

¿Alguna sugerencia?

Gracias.

Open filesource For Input As #filein 'Abre el archivo de lectura
Do While Not EOF(filein)
Line Input #filein, datos 'Lee una linea de texto
posicion = InStr(1, datos, "cadena a buscar)
'Busca la cadena en la linea leida y nos la posicion en que se encuentra
Loop
Close #filein

Esa es la idea.
Saludos