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

Dim zd As Date '变量d用于存储转换结果
If Date.TryParse(DecryptText(zcqx,"天意网络","www.wess.com"), zd) Then '如果转换成功
    messagebox.show(zd) '输出转换结果
    If  zd>dt1 Then '软件过期
        Dim t As TimeSpan =zd-dt1
        If t.Totaldays<= 10 Then
            Forms("软件10天内到期").show()
        End If
    Else
        Forms("到期提示").show()
       
    End If
Else
    messagebox.show("无效日期格式") '给出错误提示
End If

现在可以了