查汉字的区位码

Attribute VB_Name = "查汉字的区位码"
Public Function QuWeiMa(mRange As Range) As String
    Dim bCode() As Byte, s As String
    bCode = StrConv(mRange.Value, vbFromUnicode)
    For ii = 0 To UBound(bCode) Step 2
        s = s & bCode(ii) - 160 & bCode(ii + 1) - 160 & " "
    Next ii
    QuWeiMa = s
End Function