Найти сумму элементов массива, стоящих на чѐтных местах и произведение, стоящих на нечѐтных - VB

Option Explicit
 
Private Sub Form_Load()
    Dim A() As Long, N As Long, Sum As Long, Mul As Long
    Me.AutoRedraw = True
    N = 10: Mul = 1
    ReDim A(N - 1)
    For N = 0 To UBound(A)
        A(N) = Int(Rnd * 99) + 1 ' Чтобы произведение не равнялось нулю
        If N And 1 Then Mul = Mul * A(N) Else Sum = Sum + A(N) ' или наоборот, смотря какая база
        Me.Print CStr(A(N)) & " ";
    Next
    Me.Print Tab(0); "Сумма " & CStr(Sum), "Произведение " & CStr(Mul)
End Sub