vb向网页POST数据时的问题

Question

Public Sub PackBytes(ByteArray() As Byte, ByVal PostData As String)iBytes = Len(PostData) - 1If iBytes < 0 Then Exit Sub
ReDim ByteArray(iBytes)
   For i = 0 To iBytes
      ch = Mid(PostData, i + 1, 1)
      If ch = Space(1) Then
         ch = "+"
      End If
      ByteArray(i) = Asc(ch)
   NextEnd Sub
作用：将POSTDATA 字符串转换成ASC 存为BYTE类型。
问题：如果POSTDATA 里面有[汉字]将出错溢出。应该如何解决。

Answer 1

将iBytes = Len(PostData) - 1改为iBytes = LenB(StrConv(PostData, vbFromUnicode)) - 1

Answer 2

谢谢关注。
还是不行哦。ByteArray(i) = Asc(ch)这里还是溢出哦。