Uge nr function virker ikke

Jeg kan ikke gennemskue functionen her.
Men den giver uge 36 hvor den skulle give 24 i dag (11-6-2019)
Det kan vel ikke have betydning at datoen fra min server ser sådan her ud:
now() = '6/11/2019 7:40:29 PM'
hvor vi jo bytter dag 0g måned '11/6/2019'

Function WeekNumber(D)
    Dim Day1
    Day1 = DateSerial(Year(D),10,1)
    While Weekday(Day1) <> 2
    If Day1 > D Then Day1 = DateSerial(Year(D)-1,10,1)
    Day1 = DateAdd("d",1,Day1)
    Wend
    WeekNumber = DateDiff("w",Day1,D) + 1
End Function