Dim Var As String
    Open "c:\telefonos.txt" For Input As #1
        For i = 1 To 3 'esta es la cantidad de lineas que vamos a sacar
            Line Input #1, Var 'sacamos linea por linea
            Select Case i 'nos vamos fijando en que linea estamos
                Case 1 'si es la 1ra linea
                    Text1 = Var 'la ponemos en el text1
                Case 2 'si es la segunda...
                    Text2 = Var 'en el text2...
                Case 3
                    Text3 = Var
            End Select
        Next i
    Close #1 'cerramos el archivo