Определить животное, соответствующее введенному пользователем году - VB

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

По китайскому гороскопу каждому году соответствует животное : обезьяна, петух, собака, кабан, крыса, бык, тигр, кролик, дракон, змея, лошадь, овца Определить животное, соответствующее введенному пользователем году. Примечание: номер года по китайскому гороскопу можно получить, если определить остаток от деления значения года на 12. Остаток "0"- годVB обезьяны. Решить нужно на VB. прошу помогите, по гроб жизни должен буду

Решение задачи: «Определить животное, соответствующее введенному пользователем году»

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

                            Private Sub Command1_Click()
    Dim y As Integer
    y = CInt(InputBox("Г‚ГўГҐГ¤ГЁГІГҐ ГЈГ®Г¤")) Mod 12
    Dim s As String
    Select Case (y)
    Case 0
        s = "Г®ГЎГҐГ§ГјГїГ*Г*"
    Case 1
        s = "ГЇГҐГІГіГµ"
    Case 2
        s = "Г±Г®ГЎГ*ГЄГ*"
    Case 3
        s = "ГЄГ*ГЎГ*Г*"
    Case 4
        s = "ГЄГ°Г»Г±Г*"
    Case 5
        s = "ГЎГ»ГЄ"
    Case 6
        s = "ГІГЁГЈГ°"
    Case 7
        s = "ГЄГ°Г®Г«ГЁГЄ"
    Case 8
        s = "Г¤Г°Г*ГЄГ®Г*"
    Case 9
        s = "Г§Г¬ГҐГї"
    Case 10
        s = "Г«Г®ГёГ*Г¤Гј"
    Case 11
        s = "Г®ГўГ¶Г*"
    End Select
    MsgBox s
End Sub
                        