vba - get weeknumber

Question

I would like to get the current week number. I tried this:

MsgBox (Format(Now, "ww", vbMonday))

The result:

3