Вывести на экран произведение тех элементов массива, номера которых кратны трем - VB

Option Explicit
Option Base 1
Dim proizv As Double
Dim A(), i
Private Sub Command1_Click()
A = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 2, 3, 4, 5, 6, 7, 8, 9) 'Для примера
proizv = 1
For i = 3 To UBound(A) Step 3
     proizv = proizv * A(i) 'вычисляем произведение эл.массива, номера которых кратны трем
Next i
Print "Произведение элементов массива, номера которых кратны трем равно"; proizv
End Sub