Vb6: Winsock grab full data on arrival

[xxdoc123]

tried it, didnt work
the problem is that Winsock1.GetData has limit of data it can get
i need to somehow grab all data, i hope i can find someone who can give me code to do it

Text4.Text

Connection: keep-alive
Cache-Control: max-age=0
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
Content-Type: application/x-www-form-urlencoded
Referer: http://xxxx
Accept-Encoding: deflate
Accept-Language: xxxx,zh;q=0.8

     flag = ""
    WinSockHttp1.Post_data = Text4.Text
    WinSockHttp1.Head_cookie = CoS
    WinSockHttp1.Successflags = "flag xxxx" ’Set a flag to determine whether all required web pages have been downloaded. Sometimes we only need part of the webpage content
    WinSockHttp1.SockHttp "http://XXX.COM,", mPOST, "1011101"

Private Sub WinSockHttp1_ReturnComplete( Arraydata() As Byte, Flags As String)
    
    strWeb = WinSockHttp1.Return_webstring ‘download complete string
                                                 ‘’Arraydata is bytearrays。
    'Debug.Print index
    'raw.debug_print strweb


End Sub

The code logic is not very clear. Modify it yourself, I suggest you use winhttp