адаптировать данный код

[555shiro]

Здравствуйте!
ПОМОГИТЕ ПОЖАЛУЙСТА
адаптировать данный код в
VBasic 6.0, сам код написан в QBasic.

это программа для перевода чисел из одной системы в другую "Перевод из системы по основанию 8 в систему по основанию 4".

DIM STR1$(8 ), str2$(4)
DATA 000,001,010,011,100,101,110,111
FOR i = 0 TO 7
READ STR1$(i)
NEXT
DATA 00,01,10,11
FOR i = 0 TO 3
READ str2$(i)
NEXT
INPUT "vvedite vosmerichnoe chislo ", v
DO
d = v MOD 10
dv$ = STR1$(d) + dv$
v = v \ 10
LOOP UNTIL v = 0
IF LEN(dv$) MOD 2 <> 0 THEN dv$ = "0" + dv$
FOR i = 1 TO LEN(dv$) STEP 2
k$ = MID$(dv$, i, 2)
FOR j = 0 TO 3
IF k$ = str2$(j) THEN chislo = chislo + j
NEXT
IF i < LEN(dv$) - 1 THEN chislo = chislo * 10
NEXT
PRINT "chetverichnoe chislo="; chislo