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