TimeSerial( hour, minute, second )
Sub Main Dim MTime MTime = TimeSerial(12, 25, 27) Print MTime End Sub