Apakah Tahun Tertentu Merupakan Tahun Kabisat?

Private Function IsLeapYear(d As Date) As String
    IsLeapYear = (Year(d) Mod 4 = 0)
End Function

Private Sub Command1_Click()
    MsgBox IsLeapYear(#12/12/2012#)
End Sub