Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Dim strInput As String
Dim strOutput As String
Dim strGroup As String
Dim lngChar As Long
Dim tmpVal As Long
Dim lngCount As Long
'Split strinput back into byte-sized chunks
For lngChar = 1 To Len(strInput) Step 8
strGroup = Mid(strInput, lngChar, 8)
MsgBox strGroup
'strGroup now contains 01110001 or whatever
'then loop through each group
tmpVal = 0
For lngCount = 1 To 8
tmpVal = tmpVal + Val(Mid(strGroup, lngCount, 1)) * 2 ^ (8 - lngCount)
Next lngCount
strOutput = strOutput & Chr(tmpVal)
Next lngChar
MsgBox strOutput