Winsock控件的DataArrival事件中接收数据的问题

在下初学VB，想用Winsock控件做QQ二人世界那样的聊天程序，
用TCP协议客户端：当文本框发生Change事件时发送文本
Private Sub txtSendText_Change()
　　wsckServer.SendData txtSendText.Text
End Sub服务器端：发生DataArrival事件时：
    Dim strReceivedText As String
    wsckServer.GetData strReceivedText
　　Text2.text=strReceivedText我的问题是：如果发送数据太快的时候，接收端会收到重复的数据
例如我在客户端输入词组“万事如意”，服务器端显示：
万万事万事如万事如意我猜想服务器端的缓冲区处理不过来
于是在DataArrival中加入i=i+1 : debug.print i，
发现此事件确实只发生了1次
而客户端确实发送了4次请教各位大虾该如何处理？谢谢