vb调用vc 控件赋值时出现乱码！！

Question

VC中：
[id(4), helpstring("方法CXR_encrypt")] HRESULT CXR_encrypt([in] BSTR mima_in, [in] int inlen , [out,retval] BSTR * miwen_out);
VB中用references自动引入，Dim Cdecrypt_p  As New Jiami.Cdecrypt '定义
msgbox Cdecrypt_p.CXR_decrypt(Cdecrypt_p_tmp, Len(Cdecrypt_p_tmp)) 正确
可
str1 = Cdecrypt_p.CXR_decrypt(Cdecrypt_p_tmp, Len(Cdecrypt_p_tmp))后str1是乱码
str1 定义:dim str1 as string 
请高手帮着看一下，谢谢！！我的Cdecrypt_p_tmp每有汉字，全是数字。

Answer 1

先转换一下 str2 = StrConv(str1, vbUnicode)，然后用str2试试，好用的话加分啊