I only took a quick look but isn't this closing your main listening sock.
VB Code:
  1. If SckListen(0).State <> sckClosed Then SckListen(0).Close