[Resolvido]Criptografia não funciona

Alguem poderia ajudar e informar onde está o erro desta criptografia?
Obrigado
exemplo retirado
https://www.maximoaccess.com/t996-encripta-descripta-texto

Olá Mylton,

CERTO:

Código:


Private Sub Criptografar_Click()
texto1 = EncriptarTexto(texto1)
End Sub

Private Sub Descriptografar_Click()
On Error Resume Next
texto2 = DesEncriptarTexto(texto1)
End Sub

Funcionou.
Muito obrigado.

Olá Mylton,

O fórum todo agradece.


"O temor do Senhor é o princípio da sabedoria; têm bom entendimento todos os que cumprem os seus preceitos; o seu louvor subsiste para sempre."(Salmos 111.10 - v. João Ferreira de Almeida)