vba binary bits to integer short
'Extremely fast VBA function to convert a binary string to a 16-bit Integer:
Function BitsToInteger%(bits$)
Dim i&
Static b() As Byte
If LenB(bits) > 32 Then Exit Function
If LenB(bits) = 32 Then
b = bits
Else
b = String$(16 - Len(bits), "0") & bits
End If
For i = 2 To 30 Step 2
BitsToInteger = 2 * BitsToInteger Or (b(i) Xor 48)
Next
If (b(0) Xor 48) Then BitsToInteger = BitsToInteger Or &H8000
End Function
'Example:
MsgBox BitsToInteger("1111111111111111") '<--displays: -1
MsgBox BitsToInteger("0111111111111111") '<--displays: 32767