主题：[求助]Try 捕捉不到DecryptText错误

Dim s As String
Dim jm As String
If FileSys.FileExists(fl2) Then '判断新sn.txt文件是否存在
    s = FileSys.ReadAllText(fl2) '从新sn.txt文件中读出注册码
    Try
        jm = DecryptText(s, "Qtkj2016", "123456") '解密注册码
    Catch ex As Exception
        MessageBox.Show("错误注册码！", "警告", MessageBoxButtons.OK , MessageBoxIcon.Warning)
        Return
    End Try
End If

有以上代码，Try 捕捉不到DecryptText错误，还是显示：

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.8.13.1
错误所在事件：窗口,注册,Button1,Click
详细错误信息：
长度不能小于 0。
参数名: length

麻烦老师帮忙看一下，能否显示自设msbox内容？谢谢！

蓝老师，我这样写对吗？

If e.Event = "窗口,注册,Button1,Click" Then
    e.Cancel = True
End If

另外如果 DecryptText(s, "Qtkj2016", "123456") '解密注册码

发生错误，如何知道并进行判断，终止后边代码执行？

加了以下判断，完美解决：

If jm.Length = 0 Then
        MessageBox.Show("错误注册码！", "警告", MessageBoxButtons.OK , MessageBoxIcon.Warning)
        Return
    End If