Il problema sembra essere questa parte:

codice:
Const cdoSendUsingPort          =  2
Così da errore; invece così non dà errore ma non invia il messaggio:

codice:
Const cdoSendUsingPort          =  1
Da che dipende???