Creo que mejor si pruebas así:
Suponiendo que tienes el texto en un textbox llamado texto y el separador en un textbox llamado separador:
Código :
Ver originalPrivate Sub Sep_Click()
Dim matriz() As String
matriz = Split(Texto, Separador)
nombre=matriz(0)
nombre2=matriz(1)
Paterno=matriz(2)
Materno=matriz(3)
etc...
End Sub