Для целого числа и от 1 до 99 напечатать фразу «Мне k лет»

Sub MneKLet()
Static vozrast As Variant
 
vozrast = vozrast + 1
 
Do
vozrast = InputBox("Сколько мне лет?", "Введите число", vozrast)
Loop Until IsNumeric(vozrast)
 
MsgBox "Мне " & vozrast & _
IIf(Right(vozrast, 1) = "1" And Abs(vozrast Mod 100) > 20 Or Abs(vozrast) = 1, " год.", _
IIf(Right(vozrast, 1) Like "[234]" And _
Abs(vozrast Mod 100) > 20 Or Abs(vozrast) < 5 And vozrast <> 0, " года.", _
" лет.")), vbInformation
 
End Sub

Private Sub tabul()
Dim x As Single, answer() As Single
x = InputBox("X")
If x >= 1 Then
ReDim answer(1 To 3)
answer(1) = Sin(x)
answer(2) = Cos(x)
answer(3) = Log(x)
If answer(1) > answer(2) Then
temp = answer(1)
answer(1) = answer(2)
answer(2) = temp
End If
If answer(1) > answer(3) Then
temp = answer(1)
answer(1) = answer(3)
answer(3) = temp
End If
If answer(2) > answer(3) Then
temp = answer(2)
answer(2) = answer(3)
answer(3) = temp
End If
MsgBox answer(1) & "  " & answer(2) & "  " & answer(3)
Else
ReDim answer(1 To 2)
answer(1) = Sin(x)
answer(2) = Cos(x)
If answer(1) > answer(2) Then
temp = answer(1)
answer(1) = answer(2)
answer(2) = temp
End If
MsgBox answer(1) & "  " & answer(2)
End If
End Sub

Sub Mne_0_Let()
'выдаёт фразу 'Мне k лет' для k от -2^31 до +2^31
Static vozrast As Variant
 
vozrast = vozrast + 1
 
Do
vozrast = InputBox("Сколько мне лет?", "Введите число", vozrast)
Loop Until IsNumeric(vozrast)
 
MsgBox "Мне " & vozrast & _
IIf(Abs(vozrast) Mod 10 = 1 And _
    Abs(vozrast) Mod 100 <> 11, " год.", _
IIf(Abs(vozrast) Mod 10 Like "[234]" And _
    Abs(vozrast) Mod 100 <> 12 And Abs(vozrast) Mod 100 <> 13 And _
    Abs(vozrast) Mod 100 <> 14, " года.", " лет.")), vbInformation
 
End Sub

Private Sub Command1_Click()
Dim x As Double, answer
Dim a As Long, b As Long, c As Long, d As Long
Dim i As Long
answer = ""
a = InputBox("a")
b = InputBox("b")
c = InputBox("c")
d = InputBox("d")
MsgBox a & "x^3 + " & b & "x^2 + " & c & "x + " & d & " = 0"
For i = -1 * Abs(d) To Abs(d)
If i = 0 Then GoTo r1
If (d Mod i) = 0 Then
If a * (i ^ 3) + b * (i ^ 2) + c * i + d = 0 Then answer = answer & i & Chr(13)
End If
r1:
Next i
If answer = "" Then MsgBox ("Нет корней") Else MsgBox answer
End Sub