Desbordameinto al leer fichero de texto

[flyk]

Hola a todos, tengo que abrir un fichero de texto con unas 42216 lineas de 80 caracteres cada una y terminadas en un retorno de carro.
Lo abro de esta forma:

Dim fichero as string
fichero = "C:\hola.p"
Dim num_archivo As Long
num_archivo = Freefile
Dim str_linea As String

Open fichero For Input As nun_archivo
Line Input #nun_archivo, str_linea
' leo las lineas dentro de un For

Con fichero de pocas lineas no tengo ningún problema, pero para uno como el que digo de 42216 me da un error de desbordamiento.

¿cómo puedo abrir el fichero e ir leyendo linea a linea?

Gracias