La logica credo sia questa:
Per essere bisestile l'anno deve essere multiplo di 4. Non sono bisestili gli anni di inizio secolo (divisibili per 100) eccetto i multipli di 400 (il 2000 infatti lo era), quindi:
codice:
 Function VerificaAnnoBisestile (Anno As Integer) As Boolean
    If Anno Mod 400 = 0 Then
        VerificaAnnoBisestile = True
    ElseIf Anno Mod 100 = 0 Then
        VerificaAnnoBisestile = False
    ElseIf Anno Mod 4 = 0 Then
        VerificaAnnoBisestile = True
    Else
        VerificaAnnoBisestile = False
    EndIf
 End Function