Найти произведение нечетных номеров элементов массива, значения которых принадлежит интервалу

Sub m_1()
Dim A(1 To 5) As Single
Dim i As Byte
Dim Произведение As Single
Dim Количество As Byte
Произведение = 1
For i = 1 To 5
    A(i) = Val(InputBox("Введите значение для элемента массива. Дробные числа вводите, используя точку."))
Next i
For i = 1 To 5 Step 2
    If A(i) >= 2.5 And A(i) <= 4.5 Then
        Произведение = Произведение * A(i)
        Количество = Количество + 1
    End If
Next i
If Количество = 0 Then
    MsgBox "Данных, соответствующих заданным условиям, нет"
Else
    MsgBox "Произведение равно: " & Произведение
End If
End Sub

'Дан массив А(n), найти произведение нечетных номеров элементов массива,
'значения которых принадлежит интервалу [2,5;4,5]
Dim a(1 To 10) As Single
Dim pr As Integer
pr = 1
For i = 1 To 10
a(i) = Rnd() * 5 + 1
Cells(1, i) = a(i)
Next i
For i = 1 To 10 Step 1
If a(i) > 2.5 And a(i) < 4.5 Then
pr = pr * i
Cells(3, i) = i
End If
Next i
Cells(1, 11) = "pr="
Cells(1, 12) = pr

a(i) > 2.5 And a(i) < 4.5