Visual Basic - Linea de Texto !!!

Hola a todos!!!

Tengo el siguiente problema con el codigo que les envio a continuacion

el bucle no me esta leyendo la ultima linea del archivo de texto.

necesito saber como lo puedo hacer para k me lea todas las lineas,incluso la ultima, k no me la esta leyendo.

este es el ciclo que uso :

Do While Not EOF(1)
aux1 = Mid(linea1, 3)
aux2 = Mid(linea1, 1, 2) & Mid(aux1, 21)
aux3 = Mid(aux2, 1, 28) & String(16, "0") & Mid(aux2, 29)
Print #2, aux3 (aca genero otro archivo de texto)
Line Input #1, linea1
Loop

Gracias por su ayuda !!!!

Creo que la línea LINE INPUT debe estar la PRIMERA después del DO WHILE, sino las variables que creas AUX1, etc, no leerán nada, pues el line input está vacio. Por ese motivo, "tu crees" que no te ha leido la última línea, si la ha leido y después de leerla, si es el final del fuchero, se sale y no hace lo que quieres

saludos