TimeValue Function

Syntax:
TimeValue(Date$)
Group: Math
Description:
Return the time part of date encoded as a string value.
Parameter Description

Date$ Convert this string value to the time part of date it represents.
See Also: DateSerial, DateValue, TimeSerial.
Example:

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