Example - TimeValue Function

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