This example uses the TimeSerial function to return a time for the specified hour, minute, and second.
Dim MyTime MyTime = TimeSerial(16, 35, 17) ' MyTime contains serial ' representation of 4:35:17 PM.