Ciao a tutti,
tramite Winsock devo madare più messaggi con un ciclo FOR ad ogni client collegato:

*SERVER

Private Sub InviaDati(ByVal Index As Integer, ByVal Message As String)
Winsock1(Index).SendData Message
End Sub

Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long)
...
For cl = 1 To numero
messaggio = "&&&"
Call InviaDati(cl, messaggio)
For ip = 1 To numero
messaggio = "$$$" + Winsock1(ip).RemoteHostIP
Call InviaDati(cl, messaggio)
Next
Next
...

*CLIENT

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim mess As String
Winsock1.GetData mess
MsgBox (mess)
End Sub


Il problema è che nel client non mi arrivano tante msgbox quanti i cicli FOR, ma una sola che contiene tutti i messaggi concatenati in un unica stringa.

Come faccio ad inviare ripetutamente più messaggi riuscendo a "scinderli"?