Ввести одномерный массив из 12 чисел, в диапазоне от -50 до 50. Из них найти произведение чисел от 5-10 - VB

Private Sub Command1_Click()
Dim mas(11)
mult# = 1
For i = 0 To 11
    'ñëó÷Г*Г©Г*ûìè Г·ГЁГ±Г«Г*ìè
    mas(i) = Int(Rnd() * 101 - 50)
    'ââîä Г± ГЄГ«Г*ГўГ»
    'Do
    '    mas(i) = InputBox("Ââåäèòå " & i & " ýëåìåГ*ГІ [-50;50]")
    'Loop Until mas(i) >= -50 And mas(i) <= 50
    '------------------
    If mas(i) >= 5 And mas(i) <= 10 Then mult = mult * mas(i)
Next
MsgBox mult
End Sub