Seleccionar textbox de acuerdo a variable

[guideahon]

Bueno, soy nuevo en el foro, usualmente busco todo lo que necesito en google, pero esta vez no logré encontrarlo y me propuse postearlo y contribuir al que tenga un problema parecido.



Lo que quiero es que al apretar el command1 se fije el numero que hay en el text3.text, si text3.text = 1, entonces text1.text = "hola", si text3.text = 2, entonces text2.text = "hola", hasta ahí todo bien, lo puedo hacer con un if, pero este es solo un pequeño programa que representa mi problema, porque en realidad tengo 154 textbox, jaja, por eso, yo intenté algo así en una cosa parecida:

a = (100 + Y)

texta = "text" & a

texta.Visible = True

suma = suma + CInt(texta.Text)

obviamente no funcionó, pero necesitaría ayuda, esto estaba en un Do Loop pero text "a" no sirve como variable, jaja, por eso si pudiesen resolver el pequeño programa anterior, yo ya sabría como arreglar el otro.

Desde ya muchas gracias por su ayuda.
Saludos

[m0rbid]

Aver si te he entendido bien, mira lo que hice yo: Creo 6 Cajas de texto, Text1(1), (2), (3), hasta el 6 ¿se entiende?. Borra la (0).

Creo un CommandButton1 y el siguiente código:

Código:

Private Sub Command1_Click()
Dim i As Integer ' Variable
For i = 1 To 6
    If Text1(i).Text = i Then
        Text1(i).Text = "Hola"
    End If
Next i
End Sub

Entonces las Cajas de texto que tienen como Texto 1, 2, 3, 4, 5 o 6, su texto cambia a "Hola".

Saludos.

[pkj]

a = (100 + Y)

texta = "text" & a

me.controls(texta).Visible = True

suma = suma + CInt(me.controls(texta).Text)