INTERCALAR DATOS EN TEXTBOX

[VEROLA]

HOLA CHICOS, NECESITO INTERCALAR LA INFORMACIÓN DE DOS TEXTBOX ES DECIR EN UN TEXT BOX TENGO EJEMPLO AAA Y EN OTRO TEXTBOX TENGO CCC NECESITO QUE AL MOMENTO DE DAR CLICK EN UN COMMAND BUTTON APAREZCAN INTERCALADAS ESTAS LETRAS EN UN TERCER TEXTBOX ES DECIR ACACAC GRACIAS A LOS QUE ME PUEDAN COLABORAR. MUUUUUAAAAA  

[>> s E t H <<]

no escribas en mayusculas xq  es como si estuvieras gritando

ahora para lo que buscas es con mid y right, buscalos en el examinador de objetos (ver>examinador de objetos)

[ActiveSheet]

que transa

Código:

Option Explicit
 Dim a, b, c As Integer
 
Private Sub Command1_Click()


For c = 1 To c
a = Len(txtLetra)
b = Len(txtNumero)
txtRes.Text = txtRes.Text & Left(txtNumero, 1) & Left(txtLetra, 1)
Print Left(txtNumero, 1) & Left(txtLetra, 1)
txtLetra.Text = Right(txtLetra.Text, a - 1)
txtNumero.Text = Right(txtNumero.Text, b - 1)
Next
End Sub

Private Sub Form_Load()
a = Len(txtLetra)
b = Len(txtNumero)
c = ((Len(txtLetra) + Len(txtNumero)) / 2)
End Sub

[>> s E t H <<]

yo lo habia pensado de otra forma x eso no lo ponia, se hacia muy largo

EDIT: edito para q no molestes mas si?? lo q quiero q sepas es q con 999 me alcanza xD

[ActiveSheet]

bucles mijo, porfa no postes por postear quieres llegar a los mil?