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