This will return the amount of hours between the two time points.

Code:
StartTimeValue = Format("1:00:00 AM", "h:mm:ss AMPM")
EndTimeValue = Format("2:00:00 AM", "h:mm:ss AMPM")
RetVal = DateDiff("h", StartTimeValue, EndTimeValue)
MsgBox RetVal