По введенному году определить знак по китайскому календарю - VBA - Ответ 1583503

Sub AnnualRotation()
Static НомерГода
Dim КакойГод, ЗверьГода%, ЦветЗверя%, Цвет_РодПадеж$, XYanimal(), XYcolour()
 
XYanimal = Array("Xобезьяны", "Xкурицы", "Xсобаки", "Xсвиньи", "Xкрысы", "Xкоровы", _
                "Yтигра", "Yзайца", "Yдракона", "Xзмеи", "Xлошади", "Xовцы")
XYcolour = Array("красно", "жёлто", "бело", "чёрно", "зелёно")
    
    If НомерГода = Empty Then
        НомерГода = Year(Date)      ' инициализация переменной НомерГода текущим годом
    Else: НомерГода = НомерГода + 1 ' следующий год при следующем запуске; Word открыт
    End If
    
    НомерГода = Val(InputBox("Год №...", "Японский номер года", НомерГода))
    
If IsNumeric(НомерГода) Then
    ЗверьГода = IIf(НомерГода < 0, (13 + НомерГода Mod 12) Mod 12, НомерГода Mod 12)
    ЦветЗверя = IIf(НомерГода < 0, (6 + НомерГода Mod 5) Mod 5, НомерГода Mod 5)
    If Left(XYanimal(ЗверьГода), 1) = "X" Then Цвет_РодПадеж = "й" Else Цвет_РодПадеж = "го"
    
    If InputBox(Abs(НомерГода) & " год " & IIf(НомерГода < 0, "до н. э. ", "") & _
        "— это год " & _
        XYcolour(ЦветЗверя) & Цвет_РодПадеж & " " & Mid(XYanimal(ЗверьГода), 2) & ".", _
        "Сегодня " & WeekdayName(Weekday(Now, vbMonday)) & " " & Day(Now) & "-е", _
        "Выход: Cancel") <> Empty Then
        Call AnnualRotation
    End If
End If
End Sub