VB StrConv函数乱码的问题！?

Question

Private Sub Command1_Click()
MsgBox StrConv("金创药", vbUnicode)
MsgBox StrConv(StrConv("金创药", vbUnicode), vbFromUnicode)
End Sub
第一个出现乱码，第二个出现 "金创。"这是为什么？
我想知道怎样才能得到金创药的UNICODE！
直接告诉我得到UNICODE的其他方法也行！（能互转）
那我知道金创药的UNICODE是 D1 91 1B 52 6F 83
我该如何用msgbox这条命令让他显示金创药?

Answer 1

举例：Dim B1(0 to 5) As Byte'下面你就把这个字节数组填充为你要转换的Unicode码：D1 91 1B 52 6F 83B1(0) = &HD1B1(1) = &H91B1(2) = &H1BB1(3) = &H52B1(4) = &H6FB1(5) = &H83Dim Str1 as StringStr1 = B1 '直接将字节数组赋值给字符串Msgbox Str1 '弹出对话框显示“金创药”