Private Sub Winsock1_ConnectionRequest( _
  ByVal requestID As Long)
 
  ' Das Abhören wird beendet
  Winsock1.Close
 
  ' Die Verbindung wird akzeptiert
  'Winsock1.Accept requestID
  Winsock1.Accept requestID
  MsgBox "Ein Computer nimmt die Verbindung auf!", vbInformation, _
    "Verbindungsaufbau"
  'Winsock1.SendData "1" & chatname
  Winsock1.SendData "4"
End Sub

Gehe immer vom Guten Willen Anderer aus!