Vba excel год является високосным, если его номер кратен 4, однако из кратных 100 високосными являются лишь кратные 400 (например, 1700,1800 и 1900 -невисокосные года, 2000 - високосный). дано натуральное число n. определить, являться ли високосным год с таким номером. только надоvba exel

Sub god()
    g = CInt(InputBox("Введите год"))
    If (g Mod 400 = 0) Or (g Mod 4 = 0 And g Mod 100 <> 0) Then
        MsgBox "Этот год вискосный"
    Else
        MsgBox "Этот год не вискосный"
    End If
End Sub