texbox y areglo

[pkj]

Es importante declarar todas las variables y matrices.
cuando creas una matriz puedes decir cuantos elementos va a tener:
dim arreglo(20) as string
20 elementos de cadena.
pero si la cantidad de elementos puede variar, en lugar de crear una matriz con miles de elementos puedes crearla vacia y después puedes redimensionarla cuando quieras.

redim arreglo(len(text1.text))
aqui redimensionamos el arreglo con tantos elementos como caracteres contiene el text1
se borra y se crea nuevo con esos elementos.
si quieres mantener los elementos anteriores puedes hacer:
redim preserve arreglo(len(text1.text))

aqui creo una variable numérica que puede contener valores entre 0 y 255
dim cod as byte
asi como vamos a usarla para contener un caracter no podremos meter valores erroneos


aqui uso join para unir todos los elementos de una matriz en un solo texto que cargo en el text2
Text2.text=join(arreglo,"") '<<< lo muestro
sería como hacer un bucle e ir pegando los caracteres, algo asi:
text2.text=""
for f=1 to len(text1.text)
text2.text=text2.text & arreglo(f)
next f