Ho provato così:

codice:
Private Sub winsock1_DataArrival(ByVal bytesTotal As Long)
Dim mess As String
winsock1.GetData mess, vbString
MsgBox mess
end Sub
Funziona ma mi divide il messaggio...

Forse perchè il server lancia pezzi di stringa alla volta ( e non la invia tutta intera - usa la classe BufferedStream e inputStream )...

C'è qualche funzione in grado di ovviare al problema?