Second(time) returns A Variant/Integer between 0 and 59, inclusive, representing the second for time
Sub dateDemo11() Debug.Print Second(Date) End Sub