tengo un problema ahora on la funcion Asc(), hace lo que debe pero me sale el siguiente error
Llamada a procedimiento o argumeto no validos
que puedo hacer?
Cita:
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
a = Chr(cod) << el resultado lo combierto en letra y lo guardo en la variable a
arreglo2(p) = a << voy llenando un arreglo con los resultados
Text2.SelText = arreglo2(p) <<< lo muestro