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

Sub Define_Year()
Dim M As Variant
Dim F As Variant
M = InputBox("Введите год:")
If Not IsNumeric(M) Then Exit Sub
If M < 1900 Or M > 2010 Then MsgBox "Только с 1900 до 2010 года!", vbCritical: Exit Sub
For M = 1900 To 2010 Step 12

Dim mass() As Integer
Sub Define_Year()
Dim M As Variant
 
nam = Array("обезьяны", "петуха", "собаки", "свиньи", "крысы", _
"быка", "тигра", "кота", "дракона", "змеи", "лошади", "козы")
 
 
M = InputBox("Введите год:")
If Not IsNumeric(M) Then Exit Sub
If M < 1900 Or M > 2010 Then MsgBox "Только с 1900 до 2010 года!", vbCritical: Exit Sub
MsgBox M & " год  ---   " & " год " & nam(mass(M - 1900) - 1)
 
 
End Sub
Private Sub Command1_Click()
Define_Year
 
End Sub
 
Private Sub Form_Load()
Dim n%
n = 13
For i = 1991 To 1900 Step -1
If n > 1 Then n = n - 1 Else n = 12
Next i
 
 
ReDim mass(2010 - 1900)
n = n - 1
For i = 1900 To 2010
If n > 11 Then n = 1 Else n = n + 1
mass(i - 1900) = n
Next i
End Sub

Sub Define_Year()
Dim M As Variant
Dim n As Variant
M = InputBox("Введите год:")
If Not IsNumeric(M) Then Exit Sub
If M < 1900 Or M > 2010 Then MsgBox "Только с 1900 до 2010 года!", vbCritical: Exit Sub
For n = 150 To 200 Step 1
Y = M - n * 12
If Y = 0 Then
MsgBox "Это год Обезьяны"
End If
If Y = 1 Then
MsgBox "Это год Петуха"
End If
If Y = 2 Then
MsgBox "Это год Собаки"
End If
If Y = 3 Then
MsgBox "Это год Свиньи"
End If
If Y = 4 Then
MsgBox "Это год Крысы"
End If
If Y = 5 Then
MsgBox "Это год Быка"
End If
If Y = 6 Then
MsgBox "Это год Тигра"
End If
If Y = 7 Then
MsgBox "Это год Кролика"
End If
If Y = 8 Then
MsgBox "Это год Дракона"
End If
If Y = 9 Then
MsgBox "Это год Змеи"
End If
If Y = 10 Then
MsgBox "Это год Лошади"
End If
If Y = 11 Then
MsgBox "Это год Овцы"
End If
 
Next n
 
End Sub