Get Week no of the current month

Dear Team,

I am sending outlook mail through VBA every week. I want to update the week no (1st week or 2nd week or 3rd week or 4th week or 5th week ) on my mail body.

My code is

sMessage = "<br>" & "<font size=""3"" face=""Cambria"" >" & "Dear Sir, <br><br>" _
 & " Herewith I am forwarding the " & "<b> CRM Weekly Preplanner </b>" & " report for the  " _
 & WorksheetFunction.WeekNum(DefinedDate, vbMonday) & "st week of " & Format(Date, "mmm") & " " & Year(Date) & ".<br><br>" _
& " Kindly find the attachment. "

when I run the above code my output is

Dear Sir,

Herewith I am forwarding the CRM Weekly Preplanner report for the 1st week of Jun 2021.

Kindly find the attachment.

I checked to change my system date manually. It is updating 1st week only.

Can anyone help me with how to update as per my requirement

I am not sure about DefinedDate value. I get it from net.

i tried WorksheetFunction.WeekNum(cDate(DefinedDate), vbMonday).I changed my system date to 18.06.2021. Then also it is updating 1st week only.

Also help me to update "2nd" & "3rd" & "4th"

Dear Roy,

I have attached my file here for your reference.

the code is in module 9

you can add the date on sheet"WELCOME" A10

Dear Roy,

Can you please reply me to complete my work