Hola, no entiendo muy bien ese código (las astrología no es mi fuerte jaja) pero para saber si un año es bisiesto, puedes crearte una función como esta:
Código:
Function EsBisiesto(ElAño As Long) As Boolean
Dim dFecha As Date
dFecha = "01/01/" & ElAño
EsBisiesto = ((Year(dFecha) Mod 4 = 0) And (Year(dFecha) Mod 100 <> 0)) Or (Year(dFecha) Mod 400 = 0)
End Function
