How do you convert binary numbers to decimals in Visual Basic 6?

I'm trying to convert binary numbers to decimals and vice versa. I can convert from decimals to binary, but how do you convert from binary to decimal?

How do you convert binary numbers to decimals in Visual Basic 6?
Check this url





http://www.planet-source-code.com/vb/scr...
Reply:http://www.vb-helper.com/howto_decimal_t...
Reply:Hope this will helps you





Function Bin(ByVal value As Long, Optional digits As Long = -1) As String


Dim result As String, exponent As Integer


' this is faster than creating the string by appending chars


result = String$(32, "0")


Do


If value And Power2(exponent) Then


' we found a bit that is set, clear it


Mid$(result, 32 - exponent, 1) = "1"


value = value Xor Power2(exponent)


End If


exponent = exponent + 1


Loop While value


If digits %26lt; 0 Then


' trim non significant digits, if digits was omitted or negative


Bin = Mid$(result, 33 - exponent)


Else


' else trim to the requested number of digits


Bin = Right$(result, digits)


End If


End Function