...Integer
sInput = "100001100100011011000110"
For i = 1 To Len(sInput) Step 8
iASCIICode = 0
iASCIICode = CInt(Mid(sInput, i, 1)) * 128
iASCIICode = iASCIICode + CInt(Mid(sInput, i + 1, 1)) * 64
iASCIICode = iASCIICode + CInt(Mid(sInput, i + 2, 1)) * 32
iASCIICode...