Example - TimeSerial Function

Sub Main()
   Dim MTime
   MTime = TimeSerial(12, 25, 27)
   MsgBox MTime
End Sub