A simple function to convert Binary numbers to Decimal numbers.
Function Bin2Dec(Num As String) As Long
Dim n As Integer
n = Len(Num) - 1
a = n
Do While n > -1
x = Mid(Num, ((a + 1) - n), 1)
Bin2Dec = IIf((x = "1"), Bin2Dec + (2 ^ (n)), Bin2Dec)
n = n - 1
Loop
End Function