乱码问题？急

Question

  '将内容转换成带编码格式的字节数组
   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接口发送信息，发送是乱码，用这个方法转也是乱码？请高手解答一下，谢谢！