Un año es bisiesto si es divisible por 4, a menos que sea divisible por 100 y no por 400. En http://es.wikipedia.org/wiki/A%F1o_bisiesto está la explicación.
Para VB puede ser:
(Year(Date) Mod 4)=0 Or ((Year(Date) Mod 100)=0 And Not (Year(Date) Mod 400)=0)
