Devo effettuare un invio ciclico di un messaggio

quindi, in un ciclo For
chiudo il winsock
mi connetto alla porta
invio il messaggio

For i = 0 to 10
WS.Close
WS.Connect lblIP, Porta(i)
WS.SendData "Messaggio"
next

però sul metodo SendData, mi da errore perchè lo state del winsock è 6 (connessione in corso).
Ma perchè non mi completa la connessione?