Leren programmeren: schrikkeljaar

We maken hiervan een VBA functie die waar of onwaar teruggeeft, zodat we het resultaat van die functie kunnen gebruiken in een ALS formule:

Function schrikkeljaar(jaar As Integer) As Boolean
If jaar Mod 4 = 0 Then schrikkeljaar = True
If jaar Mod 100 = 0 Then
    If jaar Mod 400 = 0 Then
    schrikkeljaar = True
    Else
    schrikkeljaar = False
    End If
End If
End Function