主题：求帮助

Dim str As String = "2016-7-0"

Dim d As Date
If Date.TryParse(str, d) = False Then
    msgbox("不是正确的日期")
Else
    msgbox(d)
End If