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

[luken]

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每有汉字，全是数字。

[topzjf]

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

[meiZiNick]

有问题请先GOOGLE,BAIDU

[UltraBejing]

这个简单啊,网上搜一下就得到答案了.