怎样将bytes2BSTR转化的变量再转化回来？麻烦提供个函数！

[Alfred]

Function bytes2BSTR(vIn)
Dim strReturn
Dim i1,ThisCharCode,NextCharCode
strReturn = ""
For i1 = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i1,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i1+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i1 = i1 + 1
End If
Next
bytes2BSTR = strReturn
End Function

[KimSoft]

我想用adodb.stream转换是很easy的。

[Alfred]

你误解了，我只是想转化回来