Here is a VB function I've posted in the past that will handle up to a
96-bit binary number (which I'm guessing is way more than you will need)...

Function Bin2Dec(BinaryString As String) As Variant
Dim X As Integer
Const TwoToThe48 As Variant = 281474976710656#
For X = 0 To Len(BinaryString) - 1
If X 48 Then
Bin2Dec = CDec(Bin2Dec) + Val(Mid(BinaryString, _
Len(BinaryString) - X, 1)) * _
TwoToThe48 * CDec(2 ^ (X - 48))
Else
Bin2Dec = CDec(Bin2Dec) + Val(Mid(BinaryString, _
Len(BinaryString) - X, 1)) * CDec(2 ^ X)
End If
Next
End Function

--
Rick (MVP - Excel)


"Francis Ang" wrote in message
...
Hi Jerry,

I have a file that contains some binary code which I need to convert to
decimals. I am also looking for codes that convert HEX2DEC. I know Excel
has
these functions, but I don't have the Analysis Toolpack.

"JerryH" wrote:

I'm just curious on how you would use this. Would you have a cell that
has a
binary number in 1's and 0's and you want this converted to a decimal
value?

Jerry