Циклы: найти произведение элементов последовательности больших 7, но меньших 20 - VB

Формулировка задачи:

Дана последовательность из М чисел. Сколько из этих чисел больше 7, но меньше 20. Найти произведение таких чисел. у меня выдает ошибку требуется постоянное выражение, помогите исправить её

Code
Private Sub Command1_Click ()
N = Val (N.Text)
K = Val (K.Text)
M = Val(Textbox1.Text) 'размерность массива
Dim a(1 to M) 'массив
for i = 1 to M
a(i) = 9 * RND; ' заполнение массива случайными числами от 0 до 9
Next i
Print "Числа от"; N,"до"; K
s = 1
h = 0
for i = 1 to M
if a(i) >= 7 and a(i) <= 20 then
s = s * a(j)
h = h + 1
end if
Next i
 
Print
Print "Количество чисел="; h
Print "Произведение="; s
End Sub

Решение задачи: «Циклы: найти произведение элементов последовательности больших 7, но меньших 20»

textual
                            Листинг программы 
                        
                            s = s * a([B]i[/B])