以二进制形式显示单元格文本

Sub ShowBinary()
 Const sTitle As String = "单元格文本的二进制列表: "
 
 Dim sInp   As String
 Dim sOut   As String
 Dim i      As Long
 Dim sAdr   As String
 
 If TypeName(Selection) <> "Range" Then
   MsgBox "不适用于单元格区域以外的选择!", _
     vbInformation, sTitle & TypeName(Selection)
   Exit Sub   '---------------------------------------------------------->
 End If
 
 sInp = Selection(1, 1).Text
 sAdr = Selection(1, 1).Address(False, False)
 If Len(sInp) = 0 Then
   MsgBox "单元格文本为空", vbInformation, sTitle & sAdr
   Exit Sub   '---------------------------------------------------------->
 End If
 
 For i = 1 To Len(sInp)
   If i Mod 10 = 1 Then
     If i = 201 Then
       sOut = sOut & vbLf & "..."
       Exit For
     Else
       sOut = sOut & vbLf & Format(i, "000:  ")
     End If
   End If
 
   sOut = sOut & Format(Asc(Mid(sInp, i, 1)), " 000")
   If i Mod 5 = 0 Then sOut = sOut & "  "
 Next i
 MsgBox Mid(sOut, 2), vbInformation, sTitle & sAdr
End Sub