Date Functions VisualBasic Script

Sub dateFunctions7()
   Debug.Print "The hour part is: " & DatePart("h", Now)
End Sub