midNight = DateTime.DateParse(DateTime.Date(DateTime.now))
hoursInTicks = hour*datetime.TicksPerHour ' hour is integer value after midnight, eg 4
finalTime = midnight + hoursInTicks
timeString = DateTime.Time(finalTime) & " on " & DateTime.date(finalTime)