winsock的GetData是不是只能接受4k的数据？怪事！！！

HttpHeader = "" & _
    "GET /test.doc HTTP/1.1" & vbCrLf & _
    "Host: " & HttpServerIp & vbCrLf & _
    "Accept: */*" & vbCrLf & vbCrLf
   
    RichTextBox2.Text = HttpHeader
    Winsock1.SendData HttpHeader
我得到的数据无论如何也不能超过4k的数据？为什么？
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)    Dim remoteByteArray() As Byte
    Dim i As Integer
    
    ReDim remoteByteArray(bytesTotal) As Byte
    
    Winsock1.GetData remoteByteArray, vbArray + vbByte
    
    Open "e:\1.txt" For Binary As #1
    
    For i = 0 To bytesTotal - 1
        Put #1, , remoteByteArray(i)
    Next i
    
    Close #1End Sub