Programa separador

[Rhadamanthys87]

No para nada solo que utilizaba esos metodos por que son los que mas o menos manejo pero esta bien como sea.

Gracias por tu tiempo de ante mano.

He intentado hacerlo como tu dices pero me tira un error: Copile error: method or data member not found

el codigo lo tengo asi:

Dim matriz() As String
Private Sub out_Click()
End
End Sub

Private Sub sep_Click()
matriz = Split(texto.Text, separador.Text)
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

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