Winsock.LocalPort = TestPort
Winsock.Listen 
 
Private Sub WinSock_Error(ByVal Number As Integer, Description As String, ByVal _
  Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal _
  HelpContext As Long, CancelDisplay As Boolean)
 
   If  Description = "besetzt" then
         Dubug.Print "Porst ist besetzt"
   End If
 
End Sub