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 83
B1(0) = &HD1
B1(1) = &H91
B1(2) = &H1B
B1(3) = &H52
B1(4) = &H6F
B1(5) = &H83
Dim Str1 as String
Str1 = B1 '直接将字节数组赋值给字符串
Msgbox Str1 '弹出对话框显示“金创药”