010.查汉字区位码

'###############################################################

'函数作用:：查汉字区位码

'###############################################################

Public Function 区(fa$) As String

    On Error Resume Next

    Dim L1$, R1$, L$, R$, a, b$, c, d, e$

    c = Len(fa)

    For i = 1 To c

        d = Mid(fa, i, 1)

        a = Hex(Asc(d))

        L1 = CInt("&H" + Mid(a, 1, 2)) ‐ 160

        R1 = CInt("&H" + Mid(a, 3, 2)) ‐ 160

        If Len(L1) = 1 Then

            L = "0" & L1

        Else

            L = L1

        End If

        If Len(R1) = 1 Then

            R = "0" & R1

        Else

            R = R1

        End If

        b = d & " " & L & R & " "

        e = e & b

    Next i

    区 = e

End Function