Programa separador

[Rhadamanthys87]

Hola a todos, estoy haciendo un proyecto que permita separar apellido paterno, materno, nombre1, nombre2, email y telefono a través de algún caracter separador (.,; etc)

Ya tengo algo programado pero aun no puedo hacer que funcione del todo si alguien pudiera ayudarme con mi código estaría muy agradecido.

Ojo si ven cosas sin sentido comprendan que soy novato en esto del VB por eso vengo en su ayuda.

Código:

Dim total, letra, a, cont, x, pos As Integer
Private Sub out_Click()
End
End Sub

Private Sub sep_Click()
total = Len(texto) 'chr para convertir un caracter a asci
letra = Asc(separador)
For x = 1 To Len(texto)
a = Asc(Mid(texto, x, 1))
Select Case texto
Case 0
If Mid(total, x, 1) = " " Then
texto = 1
Else
nombre = Mid(texto, x, 1) & nombre
End If
Case 1
If Mid(texto, x, 1) = " " Then
texto = 2
Else
nombre2 = Mid(texto, x, 1) & nombre2
End If
Case 2
If Mid(texto, x, 1) = " " Then
texto = 3
Else
paterno = Mid(texto, x, 1) & paterno
End If
Case 3
If Mid(texto, x, 1) = " " Then
texto = 4
Else
materno = Mid(texto, x, 1) & materno
End If
Case 4
If Mid(texto, x, 1) = " " Then
texto = 5
Else
correo = Mid(texto, x, 1) & correo
End If
Case 5
tel = Mid(texto, x, 1) & tel
'If a = letra Then
'cont = cont + 1
'End If
End Select
Next
'resultado = cont
'cont = 0
End Sub
Private Sub separador_Change()
If texto <> "" And separador <> "" Then
sep.Enabled = True
Else
sep.Enabled = False
End If
End Sub

Private Sub texto_Change()
If texto <> "" And separador <> "" Then
sep.Enabled = True
Else
sep.Enabled = False
End If
End Sub