Berechnung Ostern mit 1904 Datumswerten

ich habe da so ein kleines problem mit der berechnung des ostersonntages im zusammenhang mit den 1904 datumswerten..

irgendwie ist der ostersonntag 2002 bei mir immer am samstag dem 13.04.02 und nicht wie es sein sollte am sonntag dem 31.03.02 *langsam verzweifelt*

welche möglichkeiten gibt es denn noch????

PS: das skript das ich zur zeit benutze

Function Ostern(Yr As Integer) As Date
Dim D As Integer
D = (((255 - 11 * (Yr Mod 19)) - 21) Mod 30) + 21
Ostern = DateSerial(Yr, 3, 1) + D + (D > 48) + 6 - _
((Yr + Yr \ 4 + D + (D > 48) + 1) Mod 7)
End Function

aufrufen tu ich es mit "=Ostern(j-4)" (die -4 weil es sonst 2006 ist)