Visual Basic - Duda con Winsock en VB 6.0

Programé una aplicación Cliente-Servidor con el control Winsock. Funciona bien y envia información del cliente al servidor y viceversa. El problema es que al especificar un puerto en el que escuchará el servidor, sólo puedo especificar un puerto libre y si está ocupado el programa se cierra repentinamente.

¿Como puedo saber si el puerto está ocupado o no (desde VB)?
¿Alguna sugerencia para controlar éste error?

Gracias por su ayuda.

creo recordar que al intentar abrir un puerto te retorna un valor indicando si se abrió o no, deberás interceptar el valor de retorno y tratarlo, para evitar el cierre anormal de tu programa