Dim x(12)
P = 1
For i = 1 to 6
x(i * 2) = 1
x((i * 2)-1) = 2
P=P*x(i*2)
P=P*x(i*2-1)
Next
Print P

Как-то так...
Все исправления понятны?