TimeValue function

TimeValue( TimeString )

Returns a double precision serial number based of the supplied string parameter.

Midnight = TimeValue(“23:59:59”)

Sub Main
   Dim MTime
   MTime = TimeValue("12:25:27 PM")
   Print MTime
End Sub