Manejo de Texto Plano en Vb6

[Kruzado]

para abrir el archivo y recorrerlo puedes hacerlo asi


Dim micadena As String
Open archivo.txt For Input As #1
Do While Not EOF(1) ' Repite el bucle hasta el final del archivo.
Input #1, micadena ' Lee el carácter en variable micadena.
aca puedes poner el mid() que te dije gakex
Debug.Print micadena ' Imprime datos en la ventana Depuración.
Loop

con lees todo el archivo plano