vba binary to byte
'Extremely fast VBA function to convert a binary string to a Byte:
Function BitsToByte(bits$) As Byte
Dim i&
Static b() As Byte
If LenB(bits) > 16 Then Exit Function
If LenB(bits) = 16 Then
b = bits
Else
b = String$(8 - Len(bits), "0") & bits
End If
For i = 0 To 14 Step 2
BitsToByte = 2 * BitsToByte Or (b(i) Xor 48)
Next
End Function
'Example:
MsgBox BitsToByte("00001100") '<--displays: 12
MsgBox BitsToByte("10000001") '<--displays: 129
'
'
'