2ичное в десятичное проще паряной репы, десятичное=сумме всех чисел полученых возведением 2йки в степень соответствующую порядковому положению каждого знака в 2ичном числе начиная справа но только в случае если это еденица.
иначе говоря:
function Bin2Dec%(binary$)
for i%=len(binary) to 1 step -1
res%=res%+ int(Mid(binary, i,1))*2^(len(binary)-i+1)
next
return res%
end function
Писал экспромтом..может где и ошибся но смысл думаю понятен