RE:Alguien sabe como realizar esto con una cadena?
Hola Francisco, te envio el codigo, inserta 3 Textbox y boton de comando para probar el codigo.....en declaraciones general declara este arreglo, ahh un detalle esto funciona con los dos nombre y dos apellidos....
Dim arreglo(1 To 60) As String
Private Sub Command1_Click()
Dim Nombre, Apellido As String
Dim largo, Espacio, Separador As Integer
largo = Len(Text1)
For i = 1 To largo
If i = 1 Then
arreglo(i) = Left(Text1, 1)
Else
arreglo(i) = Right(Left(Text1, i), 1)
If arreglo(i) = " " Then
Espacio = Espacio + 1
If Espacio = 2 Then
Separador = i
For j = 1 To i
Nombre = Nombre & arreglo(j)
Next j
Text2 = Nombre
End If
End If
End If
Next i
For x = Separador + 1 To largo
Apellido = Apellido & arreglo(x)
Next x
Text3 = Apellido
End Sub
bueno a mi me funciono perfecto...suerte...
Ruben Chileno de corazon...