Public Function IsLeapYear(yr As Variant) As Boolean
If VarType(yr) = vbDate Then
IsLeapYear = (Day(DateSerial(Year(yr), 2, 29)) = 29)
Else
IsLeapYear = (Day(DateSerial(yr, 2, 29)) = 29)
End If
End Function

Private Sub Form_Load()
MsgBox IsLeapYear(2002)

End Sub