'字节数值转汉字
Function Bytes_to_Unicode(Bytes, CodeType As String)
    Dim strReturn As String
    Dim i As Long
    Dim ThisCharCode As Integer
    Dim NextCharCode As Integer
    Dim ThirdCharCode As Integer
    strReturn = ""
    For i = 1 To LenB(Bytes)
        ThisCharCode = AscB(MidB(Bytes, i, 1))
        If ThisCharCode < &H80 Then
            strReturn = strReturn & Chr(ThisCharCode)
        Else
            If CodeType = "UTF-8" Or CodeType = "UTF8" Then
                NextCharCode = AscB(MidB(Bytes, i + 1, 1))
                ThirdCharCode = AscB(MidB(Bytes, i + 2, 1))
                strReturn = strReturn & UTF8_to_Unicode(ThisCharCode, NextCharCode, ThirdCharCode)
                i = i + 2
            Else
                NextCharCode = AscB(MidB(Bytes, i + 1, 1))
                strReturn = strReturn & Unicode(ThisCharCode, NextCharCode)
                i = i + 1
            End If
        End If
    Next
    Bytes_to_Unicode = strReturn
End Function
'二字节汉字转换
Function Unicode(BY1, BY2) As String
    Unicode = Chr(Int(BY1) * 256 + Int(BY2))
End Function
'三字节的UTF-8编码转二字节的Unicode编码
Function UTF8_to_Unicode(BY1, BY2, BY3) As String
    Dim BIN_UTF8 As String
    BIN_UTF8 = DEC_to_BIN(Int(BY1)) & DEC_to_BIN(Int(BY2)) & DEC_to_BIN(Int(BY3))
    Dim BIN_Unicode As String
    BIN_Unicode = Mid(BIN_UTF8, 5, 4) & Mid(BIN_UTF8, 11, 6) & Mid(BIN_UTF8, 19, 6)
    Dim DEC_Unicode As Long
    DEC_Unicode = BIN_to_DEC(BIN_Unicode)
    UTF8_to_Unicode = ChrW(DEC_Unicode)
End Function