' convert from binary to decimal'' NOTE: requires Power2()Function BinToDec(value As String) As Long Dim result As Long, i As Integer, exponent As Integer For i = Len(value) To 1 Step -1 Select Case Asc(Mid$(value, i, 1)) Case 48 ' "0", do nothing Case 49 ' "1", add the corresponding power of 2 result = result Or Power2(exponent) Case Else Err.Raise 5 ' Invalid procedure call or argument End Select exponent = exponent + 1 Next BinToDec = resultEnd Function