主题：帮忙看下下面代码 当转换不成功 无效日期格式没有跳出？

Dim zd As Date '变量d用于存储转换结果
If Date.TryParse(DecryptText(zcqx,"天意网络","www.wess.com"), zd) Then '如果转换成功
    messagebox.show(zd) '输出转换结果
Else
    messagebox.show("无效日期格式") '给出错误提示
End If