Vb6: Winsock data arrival truncated problem

I have this code, but it only grab truncated data, the data is a little bit large, it is a page source code

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim strResponse As String
Winsock1.GetData strResponse, vbString
RichTextBox1.Text = RichTextBox1.Text & strResponse

please help to fix this problem