RE:Leer archivo de texto con VB
Dim MiCadena, MiNúmero
Open "PRUEBA" For Input As #1 ' Abre el archivo para recibir los datos.
Do While Not EOF(1) ' Repite el bucle hasta el final del archivo.
Input #1, MiCadena, MiNúmero ' Lee el carácter en dos variables.
Debug.Print MiCadena, MiNúmero ' Imprime datos en la ventana Inmediato.
Loop
Close #1 ' Cierra el archivo.
En este ejemplo se utiliza la instrucción Input # para leer datos de un archivo y ponerlos en dos variables. Se supone que PRUEBA es un archivo de texto que contiene unas pocas líneas de datos escritos en él por medio de la instrucción Write #, es decir, cada línea contiene una cadena de caracteres entre comillas y un número separado por una coma, por ejemplo, ("Hola", 234).
Espero te sirva, siempre puedes consultar MSDN de Visual para ampliar información.
Saludos Pola