Puedes ocupar el FileSystemObject y hacer un ReadLine de tu objeto para leer la primera línea de tu archivo y despues por ejemplo hacer un split para regresar el valor de la segunda posicón e ir barriendo el archivo hasta terminar.. algo así:
Cita: Dim fso As FileSystemObject
Dim ts As textstream
Set ts = fso.OpenTextFile(strfileopen, ForReading)
strfile = ts.ReadLine
Do While Not ts.AtEndOfStream
....'aqiu haces la validacion con el split y verificas que tenga el formato correcto
....
...
If Not ts.AtEndOfStream Then strfile = ts.ReadLine
Loop
Es una idea general ya lo demás depende de tí.
Salu2