Cos'è che non va...???

E va bene.
Prova a sostituire questa riga:
codice:
Winsock1.SendData "HELO" & vbCrLf
con questa:

codice:
Winsock1.SendData "HELO " & "tuo_indirizzo_e-meil" & vbCrLf
Questa volta deve andare...