Вычислить номер максимального элемента массива; произведение элементов массива

Sub Zadanie4()
Dim a() as Integer, n as Integer
Dim I as Integer, imax as Integer
n=InputBox(“Введите размерность массива”)
ReDim A(1 to n)
Randomize
For I=1 to n
A(I)=Int((50-1+1)*Rnd+1)
Worksheets(“Лист1”).Cells(I+1,6)=A(I)
Next
imax=1
For I=2 to n
If A(I)>A(imax) Then imax=I
Next

Sub Zadanie4()
 
    Dim a() As Integer, n As Integer
    Dim I As Integer, imax As Integer
    Dim lZeroItem_1 As Long, lZeroItem_2 As Long
    Dim dProduct As Double
    
    n = InputBox("Введите размерность массива")
    
    ReDim a(1 To n)
    Randomize
    For I = 1 To n Step 1
        'Изменил диапазон случайных чисел, т.к. для
        'второго задания нужны нули.
        a(I) = Int((10 - (-10) + 1) * Rnd + (-10))
        Worksheets("Лист1").Cells(I + 1, 6) = a(I)
    Next I
    
    imax = 1
    
    For I = 2 To n Step 1
        If a(I) > a(imax) Then imax = I
    Next I
    
    
'---------------------------------------------------------------------------------------------------
    'Второе задание.
    
    '1. Определяем порядковый номер первого нулевого элемента.
    For I = 1 To n Step 1
        If a(I) = 0 Then
            lZeroItem_1 = I
            'Выходим из цикла для поиска
            'следующего нуля.
            Exit For
        End If
    Next I
    
    '2. Определяем порядковый номер второго нулевого элемента.
    For I = lZeroItem_1 + 1 To n Step 1
        If a(I) = 0 Then
            lZeroItem_2 = I
            Exit For
        End If
    Next I
    
    '3. Смотрим, есть ли нули в массиве.
    If lZeroItem_1 = 0 Or lZeroItem_2 = 0 Then
        MsgBox "Второе задание: недостаточно нулевых элементов в массиве!"
        'Выходим из процедуры.
        Exit Sub
    End If
    
    '4. Находим произведение.
    'Помещаем в переменную dProduct единицу, т.к.
    'на это число надо будет умножать, а по умолчанию там ноль.
    dProduct = 1
    For I = lZeroItem_1 + 1 To lZeroItem_2 - 1 Step 1
        dProduct = dProduct * a(I)
    Next I
    MsgBox "Второе задание: произведение равно " & dProduct
    
End Sub