Excel - Abrir con una macro un .txt

Necesito crear una macro que me permita abrir un archivo que tengo (es un txt). Alguien sabe como hacer la programacion. Espero la respuesta.
Gracias

algo así... (para darte una idea)

Dim hFile%, sLinea$
hFile = FreeFile
Open "sFileToOpen" For Input Access Read Lock Read Write As #hFile
Do While Not EOF(hFile)
Line Input #hFile, sLinea
Loop
Close #hFile

Saludos, desde Baires, JuanC