WeekNumber = Format(YourDate , "ww",vbMond ay);
this one works..