Si no lo consigues prueba esta sub en el boton
Código :
Ver originalPrivate Sub sep_Click()
Dim contador As Integer
Dim f As Integer
ReDim matriz(5)
For f = 1 To Len(Texto.Text)
If Mid$(Texto.Text, f, 1) <> separador.Text Then
matriz(contador) = matriz(contador) & Mid$(Texto.Text, f, 1)
Else
contador = contador + 1
End If
Next f
nombre.Caption = matriz(0)
nombre2.Caption = matriz(1)
paterno.Caption = matriz(2)
materno.Caption = matriz(3)
correo.Caption = matriz(4)
tel.Caption = matriz(5)
End Sub