Date Functions VisualBasic Script

Sub dateFunctions3()
   Debug.Print "The month part is: " & DatePart("m", Now)
End Sub