乱码问题 请教~~~

将内容转换成带编码格式的字节数组
  Function Str2Bytes(str,charset)
  Dim ms,strRet
  Set ms = CreateObject("ADODB.Stream") '建立流对象
  ms.Type = 2 ' Text
  ms.Charset = charset '设置流对象的编码方式为 charset
  ms.Open   
  ms.WriteText str '把str写入流对象中   
  ms.Position = 0 '设置流对象的起始位置是0 以设置Charset属性
  ms.Type = 1 'Binary
  vout = ms.Read(ms.Size) '取字符流
  ms.close '关闭流对象
  Set ms = nothing
  Str2Bytes = vout
  End Function
我是HTTP接口发送信息，发送是乱码，用这个方法转也是乱码？请高手解答一下，谢谢！