IsDate Function

Syntax
IsDate(expr)
Group
Variable Info
Description
Return the True if expr is a valid date.
Parameters Description
expr A variant expression to test for a valid date.
See Also
TypeName, VarType

Sub Main
    Dim X As Variant
    X = 1
    Debug.Print IsDate(X) 'False
    X = Now
    Debug.Print IsDate(X) 'True
End Sub