Vectores: la suma de los pares y el mayor de los impares

Dim A(20) As Integer
Dim SumaPares As Integer
Dim MayorImpares As Integer
Dim i As Integer

A(1) = 3
A(2) = 6
A(3) = 7
A(4) = 1
A(5) = 13
A(6) = 18
A(7) = 29
A(8) = 4
A(9) = 9
A(10) = 15
A(11) = 43
A(12) = 31
A(13) = 54
A(14) = 25
A(15) = 2
A(16) = 5
A(17) = 8
A(18) = 33
A(19) = 22
A(20) = 10

For i = 1 To 20
If i Mod 2 = 0 Then
SumaPares = SumaPares + A(i)
Else
If A(i) > MayorImpares Then
MayorImpares = A(i)
End If
End If
Next

MsgBox ("La suma de las posiciones pares es: " & SumaPares)
MsgBox ("El mayor de las posiciones impares es: " & MayorImpares)