VBA решить паж-та буду благодарна

Sub one()
 
Dim a(10) As Integer
Dim n As Byte
Dim i As Byte
 
 
 n = InputBox("vvedite kolichestvo chisel")
 
For i = 1 To n
a(i) = InputBox("vvedite chislo")
Next i
For i = 1 To n
Select Case a(i)
Case 1, 21, 31, 41, 51, 61, 71, 81, 91
MsgBox "Mne " & a(i) & " god"
 
Case 2 To 4, 22 To 24, 32 To 34, 42 To 44, 52 To 54, 62 To 64, 72 To 72, 82 To 84, 92 To 94
MsgBox "Mne " & a(i) & " goda"
 
Case 5 To 20, 25 To 30, 35 To 40, 45 To 50, 55 To 60, 65 To 70, 75 To 80, 85 To 90, 95 To 99
MsgBox "Mne " & a(i) & " let"
 
End Select
Next i
 
End Sub

Dim vIn, vOut, sStr As String
vIn = InputBox("Ваш возраст?:")
vOut = IIf(vIn > 19, vIn Mod 10, vIn)
Select Case vOut
Case 2 To 4:         sStr = " года"
Case 0, 5 To 19:    sStr = " лет"
Case Else:             sStr = " год"
End Select
MsgBox "Мне " & vIn & sStr

Sub Task_v1()
Dim a As Single, n As Integer, S As Single, i As Integer
n = InputBox("n:")
a = InputBox("a:")
S = 1 / a
For i = 2 To n
S = S + 1 / a ^ (2 * i - 2)
Next
MsgBox S
End Sub

Sub Task_v2()
Dim a As Single, n As Integer, S As Single, i As Integer
n = InputBox("n:")
a = InputBox("a:")
S = 1 / a
i = 2
While i <= n
S = S + 1 / a ^ (2 * i - 2)
i = i + 1
Wend
MsgBox S
End Sub

Dim sNum As String, i As Integer
sNum = InputBox("Введите число:")
For i = 2 To Len(sNum)
    If Mid(sNum, i, 1) = Mid(sNum, i - 1, 1) Then MsgBox "False": Exit Sub
Next
MsgBox "True"

   Dim sNum As String, i As Integer, j As Integer
   
   sNum = InputBox("Введите число:")
   
   For i = 1 To Len(sNum) - 1
      For j = i + 1 To Len(sNum)
         If Mid(sNum, i, 1) = Mid(sNum, j, 1) Then MsgBox "False": Exit Sub
      Next j
   Next i
   MsgBox "True"