Please help me out , TCP Receive data

HI all ,

I make simple electronic module witch connect to modem and send data to server appliction has been made by vb6 , now when huge data come i cant receive the data from my module but with normal data it is ok , i was thing it my module problem ,but when i test income data with Hercules TCP application , it work great and receive all data ....

now this what write when the data arrive

Code:

---

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  Dim strdata As String
    Winsock1.GetData strdata
      txtIn = txtIn & strdata & vbCrLf   
End Sub

---

where is my problem please help me out

What happens when a large amount of data arrives? Is there an error?