RE:Leer de un fichero .txt
define un FileSystemObject llamado FSO, un string llamado linea, un txtstream llamado fichero, y luego asocia el string a una linea del fichero de la siguiente forma:
Dim FSO As New FileSystemObject
Dim File As TextStream
dim linea as string
Set File = FSO.OpenTextFile("nombrefichero.txt")
While Not FilePrev.AtEndOfStream
linea=fichero.ReadLine
'a partir de ahí trata el string linea para obtener los datos quieras
'debes conocer la estructura del fichero.
loop