Private Sub SendMessage(Message As String)
  Dim wsk As Winsock
 
  For Each wsk In Winsock                        
    ' Steht die Verbindung mit dem Clienten 
    If wsk.State = 7 Then wsk.SendData Message
  Next
 
 End Sub