Sustitución de caracteres

[pkj]

He probado la primera función y funciona perfectamente, lo que no está correcto es el modo de llamarla.
O usas un VB muy moderno que admite eso, o tienes que cambiar el código del Button1.

¿No te da error ahí?

En fin, te explico:
La función devuelve cifrado el texto que le mandes.
Si solo la ejecutas como:
MsgBox Cifrado("Text1") ' Text1 es lo que yo le he mandado
Te devuelve "gvcg1", que es el texto Text1 cifrado con los caracteres que trae la función por defecto.
Si quieres usar otros caracteres puedes hacerlo incluyendolos en la llamada a la función o cambiando los de la propia declaración de la función.

Espero haber aclarado algo.

Por cierto, la he probado en VB6. Quizá tu problema es que haya que adaptarla a tu VB si es más moderno.

Saludos