字符转换

Question

通信过程：通过网络先发信息到一Server上，同时在本地起一个程序来监听本机端口，接受返回的信息。
          Server上的代码是c编写的，接受和发送的数据格式是字节形式。
先要将string 转换为字节流，在将收到的字节流转换为 string，主要代码如下
Public Function AscIII2Unicode(ByVal s As Byte)
On Error Resume Next
Dim i As Integer
Dim r As String
Dim aaa As String
For i = 1 To Len(s)
aaa = Hex(Asc(Mid(s, i, 1)))
If Len(aaa) = 1 Then
   aaa = "0" + aaa
End If
r = r + aaa
Next
AscIII2Unicode = r
End FunctionPrivate Sub Command2_Click()
   WinSck(0).SendData Unicode2AscIII(Text1.Text)
End Sub可是当我 输入 000000270000000100000001393038353430D7549CFD9D17A478F1BEEE98D34B6A8B203C351DD2 
之后得到的是：
000000270000000100000001393038353430005400000017007800000000004B6A00203C351D00也就是大于80的全部出错了，请教大家这是怎么回事啊？

Answer 1

80 以后都是IBM-PC专用机器上的字符,普通PC没有办法打印出来的!!
  你把字符串都变成数组的方式发送,就是一个byte() 放一个字母发送

Answer 2

一个byte() 放一个字母发送的话，那样是不是只会一次至发送一个字节？我需要把一串字节一次次发出来。
如果可以的话，那么
WinSck(0).SendData Unicode2AscIII(Text1.Text)
该如何改正呢？