Bueno mira, te dejo como hacerlo, pero la idea es que lo hagas vs, asique intenta mejorarlo a tu gusto y hacer lo de guardar tambien.

Private Sub Command1_Click()
 
Dim data As String ' variable que contendra la linea del texto
Dim datos() As String ' el array que contendra las palabras divididas por " "
Dim FF As Integer ' usamos esto siempre para
FF = FreeFile '  asegurarnos de abrir un archivo que no abrimos antes
 
Open "C:\data.txt" For Input As #FF ' abrimos el archivo
 
Do ' bucle para leer todas las lineas por si usaras mas textbox
    ' y en ese caso tendrias que crear una matriz de control para ir agregandole valor al Index del textbox
 
    Line Input #FF, data ' obtenemos la linea y la guardamos
 
    datos = Split(data, " ") ' creamos el array para sacar Nombre, Apellido y telefono, separados
    Text1.Text = datos(0) ' guardamos el Nombre
    Text2.Text = datos(1) ' guardamos el Apellido
    Text3.Text = datos(2) ' guardamos el telefono
 
Loop While Not EOF(FF) ' el bucle sigue hasta que no sea el fin
                    ' EOF = End Of File
 
Close #FF ' cerramos el archivo
 
End Sub
 

Si no entiendes algo decime

Te rindes facil xD, yo con lo que te deje, y el codigo si miras los comentarios entenderias como modificarlo pero bueno.. va en gusto dijo una vieja..