Перевод с Бейсика на VBA

[Majesty13]

Здравствуйте, помогите, пожалуйста, перевести программный код с Бейсика на VBA.
Заранее благодарю.

10  cls
20  input "Введите число переменных"; Var
30  Dim Value(Var), Rules(Var), Var$(Var)
40  for i=1 to Var
50  Value(i)=0
60  Rules(i)=0
70  Next:print
80  print "Назовите эти переменные"
90  for i=1 to Var
100 Input "Имя переменной:";Var$(i)
110 Next: print
120 print "Назовите возможные исходы:"
130 Input "Первый исход:"; Outcome1$
140 Input "Второй исход:"; Outcome2$
150 print
160 for i=1 to Var
170 Value(i)=0
180 print "Переменная:"; Var$(i)
190 Input "Эта переменная есть <y/n>";A$
200 If A$="Y" or A$="y" then Value(i)=1
210 Next
220 Decision=0
230 for i=1 to Var
240 Decision=Decision+Value(i)*Rules(i)
250 Next
260 print "Возможный исход-";:If Decision>0 then
    print Outcome1$ else print Outcome2$
270 Input "Это верно <y/n>";A$
280 If A$="Y" or A$="y" then 150
290 If Decision > 0 then
    for i=1 to Var:Rules(i)=Rules(i)-Value(i): Next
    else for i=1 to Var:Rules(i)=Rules(i)+Value(i): Next
300 Goto 150

[Stilet]

на VBA.

Именно VBA? Просто й VB не подойдет?

[Majesty13]

Да, желательно именно в VBA перевести