Leer linea por linea un archivo de 800 k

Cristian
23 de Abril del 2004
Hola
Estoy usando este codigo para leer linea por linea un archivo de 800k

Do Until EOF(FN)
DoEvents
Line Input #FN, Leer
Loop

utilizando ese codigo en un archivo pequeño me funciona perfectamente , me lee las lineas una por una , pero con este archivo de 800 k (es una lista de palabras bastante extensa) utilizando ese mismo codigo me lee todo el archivo de un saque y lo que necesito es q me lo lea palabra por palabra para poder trabajar con cada una de ellas.
Como hago para leer linea por linea un archivo grande??

Gracias