TimeValue ( TimeString )
Returns a double precision serial number based of the supplied string parameter.
Midnight = TimeValue(“23:59:59”)
Related topics: DateSerial, DateValue, Hour Minute, Now, Second TimeSerial.
Example:
Sub Main
Dim MTime
MTime = TimeValue("12:25:27 PM")
Print MTime
End Sub