Написать фрагмент программы на vba для нахождения произведения чисел с шагом 2 на интервале от -10 до 10 используя for-next, do-loop while с предпосылкой и do-loop until с послесловием

Dim i as Integer
Dim Summ as Integer


Summ=1

For i=-10 to 10 Step 2
Summ=Summ*i
Next

i=-10
Summ=1

Do
     summ = summ * i
     i = i + 2       
Loop While i <> 12



i=-10
Summ=1

Do
     summ = summ * i
     i = i + 2        
Loop Until i = 12