Создать процедуру для вычисления года по восточному календарю - VB

Формулировка задачи:

Создать процедуру для вычисления года по восточному календарю (использовать функцию остатка от деления): 0 - свинья, 1 - петух, 2 - собака, 3 - кабан, 4 - крыса, 5 - бык, 6 - тигр, 7 - кролик, 8 - дракон, 9 - змея, 10 - лошадь, 11 - овца. Определить является ли указанный год високосным. Использовать функцию Year.

Решение задачи: «Создать процедуру для вычисления года по восточному календарю»

textual
                            Листинг программы 
                        

                            Sub main()
Dim y%
y = InputBox("Введите год", , 2000)
MsgBox y & " - " & Array("не ", "")(-IsDate("29.02." & y)) & "високосный год " & _
Array("обезьяны", "петуха", "собаки", "кабана", "крысы", "быка", "тигра", "кролика", "дракона", "змеи", "лошади", "овцы")(y Mod 12)
End Sub
                        