Private Function Bin2Dec(ByVal Bin As String) As Long
    Dim i As Long, lngLen As Long
    lngLen = Len(Bin)
    For i = lngLen To 1 Step -1
         Bin2Dec = Bin2Dec + IIf(Mid$(Bin, i, 1) = "1", 2 ^ (lngLen - i), 0)
    Next i
End Function