texbox y areglo

[pkj]

Lo que tu quieres debería funcionar así:

private sub text1_change()

dim arreglo() as string
redim arreglo(len(text1.text))
dim h as integer
dim var as string
dim cod as byte
dim a as string

For h=1 to len(text1.text)
var = Mid(Text1.Text, h, 1) '<< tomo caracter por caracter

cod = Asc(var) '<< lo tranformo a su equivalente ascii

'cod = cod + key << al valor le sumo un numero cualquiera
' aqui te puedes encontrar con valores superiores a 255
' si quieres codificar el texto haz Xor en lugar de sumarlo.
' siempre quedará un resultado válido.
' key tiene que ser también un valor de 0 a 255
cod = cod xor key '<< al valor le sumo un numero cualquiera

a = Chr(cod) '<< el resultado lo combierto en letra y lo guardo en la variable a

arreglo(h) = a '<< voy llenando un arreglo con los resultados

Next h

Text2.text=join(arreglo,"") '<<< lo muestro

End sub

Si lo usas y no funciona dimelo que lo repase.