主题：设计自己的注册系统出错

Dim c As Row = Tables("保存").Current
Dim code As String= c("注册码")
If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then '如果注册码正确
    Messagebox.Show("注册成功!")
    c("注册标识")="y"
    Forms("注册").Close()
Else
    Messagebox.Show("注册码不正确!")
    c("注册标识")="n"
End If

用    Output.Show(EncryptText("用户提供的机器码","pln","jjxx")) 生成的注册码，按理说应该提示“注册码不正确”，实际出现了一个系统错误提示：

此主题相关图片如下：zc.png

请问应该如何避免这样的错误提示出现？