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