For i = 1 To Verbindungen 
  With wsockServer(i)
    .Tag = "send"
    .SendData txtNachricht.Text
    Do While .Tag <> ""
      DoEvents
    Loop
  End With
  DoEvents
Next i

Private Sub wsockServer_SendComplete(Index As Integer)
  wsockServer(Index).Tag = ""
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de