Visual Basic - LEER 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!!

Acabo de responder esto mismo en el foro de Visual Basic (eguro le llega a su email)

Por favor, no pongan lo mismo en los 2 foros

Private Sub leeme()
On Error GoTo Error_Line
Dim Texto As String
Dim TextoCompleto As String
Dim Archivo As String
Dim IDFile As String
'Archivo Codigo.txt
IDFile="Codigo"
Open App.Path & "\Archivo" & idFile & ".txt" For Input As #Myfile
Do While Not EOF(Myfile)
'Ingresar todo el primer registro en la variable texto
Line Input #Myfile, Texto
'Debug.Print Texto
'Input #Myfile, Texto
'variable acumuladora
TextoCompleto = TextoCompleto + Texto
Loop
'mostrar el texto de todo el archivo txt
txtLoad.Text = TextoCompleto
Close #Myfile
Exit Sub
Error_Line:
MsgBox Err.Description
End Sub