Date Functions VisualBasic Script

Sub dateFunctions6()
   Debug.Print "The week part is: " & DatePart("ww", Now)
End Sub