What's in Your Personal.xls?

After using =Char(Mid(A1, 15, 1)), =Char(Mid(A1, 16, 1)), =Char(Mid(A1, 17, 1)), ... a few hundred times in years past, I made a form and wrote some code to list the contents of a cell in binary. It's been handy.

I recently added support for Unicode, so it may not be fully cooked (or maybe reheated), and double-width Unicode characters are problematic.

In addition to adding the attached form to the workbook, this needs to go in a code module.

Sub CSB()
    ' Shortcut: Ctrl+Shift+B, as in
    '   "conveniently show binary"
    frmShowBinary.ShowBinary
End Sub