WinSock1.SendData "Ich bin ein Held"
DoEvents
WinSock1.SendData "im Kartoffelfeld"
DoEvents
...
Private Sub WinSock1_DataArrival(...)
   Dim sString As String
 
   WinSock1.GetData sString
 
   MsgBox "Empfangen: " & sString
End Sub