Dim Anzahl As Long
Anzahl = 1
...
Load WinSock1(Anzahl)
Anzahl = Anzahl + 1

Private Sub WinSock1_DataArrival(Index As Integer,...)
   Dim sString As String
   WinSock1(Index).GetData sString
   If Index = 1 Then     ' Client, der mit Steuerelement Nummer 1 connected 
   ' wurde
      MsgBox "Client 1 sagt: " & sString
   End If
End Sub