1
Tome la serie de números que le den, y se encargará entonces en una matriz. Por ejemplo, si usted tiene los números 66 , 111, 123 , 125, 101 , 114, 0 , 42, 101 , 123, 111 , 103 entonces lo escriba en la parte superior de la función de conversión :
Dim números ( ) As Variant números
= Array ( 66 , 111, 123 , 125, 101 , 114, 0 , 42 , 101, 123 , 111, 103 )
2
Copia y pegue el código siguiente después del código anterior para crear una nueva cadena :
Dim secretMessage as String = ""
For i = 0 To numbers.Count
secretMessage = secretMessage & Chr ( números ( i ))
Siguiente
3
Copia y pega el siguiente código en una función de eventos para ver el mensaje secreto "Visual Basic y rdquo ; aparecerá :
MsgBox secretMessage