função para encriptação/desencriptação de texto inclusivé acentuação

após pesquisa encontrei este código para encriptação /desencriptação de texto inclusivé de acentuação.

fonte :
http://forum.imasters.com.br/topic/138634-descriptografa-md5/

'criptografar texto

Const EncC1 = 109
Const EncC2 = 191
Const EncKey = 161

Public Function EncriptaStr(Texto)
Dim TempStr, TempResult, TempNum, TempChar
Dim TempKey
Dim i

TempStr = Texto
TempResult = ""
TempKey = ((EncKey * EncC1) + EncC2) Mod 65536

For i = 1 To Len(TempStr)
TempNum = (Asc(Mid(TempStr, i, 1)) Xor (AuxShr(TempKey, Cool)) Mod 256
TempChar = Chr(TempNum)
TempKey = (((Asc(TempChar) + TempKey) * EncC1) + EncC2) Mod 65536
TempResult = TempResult & TempChar
Next

EncriptaStr = TempResult
End Function

'descriptograr texto
Public Function DecriptaStr(Texto)
Dim TempStr, TempResult, TempNum, TempChar
Dim TempKey
Dim i

TempStr = Texto
TempResult = ""
TempKey = ((EncKey * EncC1) + EncC2) Mod 65536

For i = 1 To Len(TempStr)
TempNum = (Asc(Mid(TempStr, i, 1)) Xor (AuxShr(TempKey, Cool)) Mod 256
TempChar = Chr(TempNum)
TempKey = (((Asc(Mid(TempStr, i, 1)) + TempKey) * EncC1) + EncC2) Mod 65536
TempResult = TempResult & TempChar
Next

DecriptaStr = TempResult
End Function

Private Function AuxShr(Numero, BShr)
AuxShr = Int(Numero / (2 ^ BShr))
End Function


no envento Seubotao()
'encripta texto
varTeste = EncriptaStr( "texto ou variável para criptografar" )


no envento Seubotao()
'desencripta texto
varTeste = DecriptaStr( "texto ou variável para descriptografar" )

Muito bom Oscar. Aproveitando para dirimir algumas dúvidas que poderá surgir fiz um exemplo em base no código que postou.

Link