"excel vba string to binary" Code Answer's

You're definitely familiar with the best coding language VBA that developers use to develop their projects and they get all their queries like "excel vba string to binary" answered properly. Developers are finding an appropriate answer about excel vba string to binary related to the VBA coding language. By visiting this online portal developers get answers concerning VBA codes question like excel vba string to binary. Enter your desired code related query in the search bar and get every piece of information about VBA code related question on excel vba string to binary.

excel vba string to binary

By Excel Hero on May 26, 2020
``````'VBA function to convert text to a binary string representation:

Public Function TextToBinaryString\$(s\$)
Dim c&, i&, lo&, bin\$(0 To 255), d() As Byte
Const ZEROS\$ = "00000000"
For c = 0 To 255
bin(c) = ZEROS
If c And 1& Then MidB\$(bin(c), 15) = "1"
If c And 2& Then MidB\$(bin(c), 13) = "1"
If c And 4& Then MidB\$(bin(c), 11) = "1"
If c And 8& Then MidB\$(bin(c), 9) = "1"
If c And 16& Then MidB\$(bin(c), 7) = "1"
If c And 32& Then MidB\$(bin(c), 5) = "1"
If c And 64& Then MidB\$(bin(c), 3) = "1"
If c And 128& Then MidB\$(bin(c), 1) = "1"
Next
d = s
lo = 1
TextToBinaryString = Space\$(LenB(s) * 8)
For i = 0 To LenB(s) - 1 Step 2
Mid\$(TextToBinaryString, lo) = bin(d(i + 1))
Mid\$(TextToBinaryString, lo + 8) = bin(d(i))
lo = lo + 16
Next
End Function

'------------------------------------------------------------------------------

MsgBox TextToBinaryString("Hi")  '<--displays: 00000000010010000000000001101001
``````