Visual Basic para Aplicaciones - TEXTO TXT

Necesito leer un fichero txt, que es de la siguiente manera:

primera linea
segunda linea
tercera linea
tercera linea2
tercera linea3

tengo que coger el texto de la primera linea y meterlo en una variable, el texto de la segunda y meterlo en otra variable, etc. ¿como lo hago?

Gracias!!

open "archivo.txt" for input as #1
do
line input #1,variable1
line input #1,variable2
...
...
loop until eof(1)
close #1