Dim Val1 As String = "龙的传人"
Dim Val2 As String = EncryptText(Val1,"a23","op#") \'加密
Dim Val3 As String = DecryptText(Val2,"a23","op#") \'解密，两个密钥必须和加密的时候相同 
Output.Show("加密后：" & val2)
Output.Show("解密后：" & val3)

在命令窗口执行上面的代码，得到的结果是：

加密后：228HqJrxgDHJQFHwqhK3Mg==
解密后：龙的传人

假如把加密后的字符串，其中某个字符修改一下，解密的时候就会弹出出错窗口，怎么屏蔽这个窗口？

之前有说用try  http://www.foxtable.com/help/index.html?n=2070.htm

还有其他方法吗？

为什么解密时会报错？
此主题相关图片如下：qq拼音截图未命名.png