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