Date Functions VisualBasic Script

Sub dateDemo6()
   Debug.Print Hour(Date)
End Sub