Найти в одномерном массиве максимальный элемент среди элементов с четными индексами

Option Explicit
Option Base 1
 
Sub MaxEven()
    Const N = 10
    Dim i As Long, a As Variant, maxi As Long
     
    Range("a:a").Clear                                  'очистка 1-й колонки
    Range("a1:a" & N).FormulaR1C1 = "=round(RAND(), 2)" 'n чисел в 1-й колонке
    Range("a1:a" & N) = Range("a1:a" & N).Value         'замена формул значениями
     
    a = Range("a1:a" & N)                               'помещаем числа в массив
     
    maxi = 2                'предполагаемиый индекс максимального элемента (из чётных)
        For i = 2 To N Step 2               'перебор индексов массива через один (чётных)
            If a(i, 1) > a(maxi, 1) Then maxi = i   'новый индекс максимального элемента
        Next
        
    Cells(maxi, 1).Font.Color = vbRed               'красим найденный элемент
End Sub

Sub ìàññèâ()
Dim n As Byte, i As Byte, a() As Integer
n = InputBox("vv_n")
ReDim a(1 To n) As Integer
Max = -50
For i = 1 To n
a(i) = Rnd * 100 - 50
Cells(i, 1) = a(i)
If a(1) > 0 And Max < a(i) And a(i) Mod 2 = 0 Then
Max = a(i)
End If
Next i
MsgBox "max=" & Max
End Sub

Function maxEven(A() As integer, Optional i as integer=0, Optional m as integer=0) As integer
  If i=0 then
     maxEven=maxEven(A(),4,A(2))
  elseIf i > Ubound(A,1) then
     maxEven=m
  else
     maxEven=maxEven(A(),i+2,iif(A(i) > m,A(i),m))
  end if
End Function