Особенность или глюк WinSock - VB

Формулировка задачи:

Народ подскажите от чего зависит размер пакета, который получает клиент при TCP соединении, а то он у меня меняется то 8кб, то 4кб, а то и вообще был 566 байт. И можно ли как нибудь сделать его фиксированного размера, чтобы если отослал 4Кб, то и получил 4Кб а не по частям.

Решение задачи: «Особенность или глюк WinSock»

textual
                            Листинг программы 
                        

                            Module1.bas
Const Prog_ID = 'SomeVar'
public dataincome
 
End module
 
Data_Arrival(data)
Dim ddd as string
winsock1.getdata ddd
dataicome = dataincome + ddd
c = Instr (1, dataincome, Prog_ID)
if c = 0 then exit sub
if c>1 then dataincome = right(dataincome, len(dataincome) - (c-1)): c = 1
if c = 1 then
ddd = left(dataincome, packet_lenght)
...
Код, который выполняется для обработки пакета
...
end if
                        