Date Functions VisualBasic Script

Sub dateFunctions4()
   Debug.Print "The day part is: " & DatePart("d", Now)
End Sub