[SBJoker]

Вот рабочий код:

Function Bin2Dec%(binary$)
For i%=Len(binary) To 1 Step -1
res%=res%+ Int(Mid(binary, i,1))*2^(Len(binary)-i)
Next

Return res%
End Function