Найти сумму элементов массива вещественных чисел, имеющих нечетные номера - VB

Private Sub Command1_Click()
Dim i, sum  As Integer
Dim a() As Double
Cls
sum = 0
Print "Первоначальная матрица:"
      ReDim a(1 To 20)
      For i = 1 To 20
                        a(i) = Rnd * (200 - 100)
                        Print Round(a(i), 1);
                        If i Mod 2 = 0 Then sum = sum + a(i)
     Next i
Print
Print "Сумма:"; sum
End Sub