IsDate Function

Syntax:
IsDate(expr)
Group: Variable Info
Description:
Return the True if expr is a valid date.
Parameter Description

expr A variant expression to test for a valid date.
See Also: TypeName, VarType.
Example:

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