Public Function IsDate(ByVal Expression As Variant) As Boolean
Returns True if the specified variable/expression is of type Date.
Dim lVariant As Variant
SendDebug IsDate(lVariant) ' Sends out 'False': lVariant is Empty.
lVariant = Now
SendDebug IsDate(lVariant) ' Sends out 'True'