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

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