Вычислить сумму элементов числового ряда - VB

Option Explicit
Dim i As Integer, m As Integer, n As Integer, Num As Integer, k As Integer
Dim a() As Integer
Private Sub Command1_Click()
Cls
n = InputBox("Колличество элементов?")
ReDim a(1 To n)
For i = 1 To n
 Randomize
 a(i) = Rnd * 20
 Print a(i) & " "
Next i
End Sub
 
Private Sub Command2_Click()
k = 0
 
For i = 1 To n
If a(i) Mod 2 = 0 Then
  If a(i) > m Then m = a(i): Num = i: k = k + 1
  End If
Next i
If k = 0 Then
  Print "Нет чётных элементов!"
  Else
  Print "Номер наибольшего чётного:" & Num
  End If
End Sub