TimeValue Function

Syntax
TimeValue(Date$)
Group
Time/Date
Description
Return the time part of date encoded as a string value.
Parameters Description
Date$ Convert this string value to the time part of date it represents.
See Also
DateSerial, DateValue, TimeSerial

Sub Main
    Debug.Print TimeValue("1/1/2000 12:00:01 AM")
        '12:00:01 AM
End Sub