vb6.0 winsock tcp乱码

下面是主机端的发送代码

Dim a As String
a = Text2.Text
Winsock2.SendData a
DoEvents
Winsock2.Close

下面是客户端接收代码

 Dim a As String
Winsock1.GetData a
Text1.Text = a

主机端给客户端发什么收到的都是数字
主机端发送一位数字时客户端是0
主机端发送字符串客户端收到的都是五个数字

客户端给主机端发送一串字母
主机端收到的是一串繁体中文和字母的混合字符串

这个是怎么回事？
求各位高手指点指点。