Dim Guardar(3) As String

'Suponiendo que se ingreso en el textbox "Nombre ApellidoPaterno ApellidoMaterno"

Private Sub Command1_Click()

Guardar(0)=TextBox1.Text.Split(" ")(0)
Guardar(1)=TextBox1.Text.Split(" ")(1)
Guardar(2)=TextBox1.Text.Split(" ")(2)

Msgbox("Tu nombre es: " + Guardar(0) + " Tu Apellido Paterno Es: "  + Guardar(1) + " Tu Apellido Materno Es: " + Guardar(2))

End Sub