字符转换成UTF-8

Function StrConvFromUTF8(aBytes() As Byte) As String
    Dim cStream As ADODB.Stream
    Set cStream = New ADODB.Stream
    cStream.Open
   
    cStream.Type = adTypeBinary
    cStream.Write aBytes
   
    cStream.Position = 0
    cStream.Type = adTypeText
    cStream.Charset = "utf-8"
    StrConvFromUTF8 = cStream.ReadText

    cStream.Close
End Function