[VB6] Inviare mail con CDO

[StegcO]

Ho aggiunto il riferimento e creato questo semplicissimo codice, però non funziona.

Mi sorge il dubbio, ma come inserisco il valore di mail entrata/uscite ecc ecc?

Private Sub cmd_send_mail_Click()

Dim CDO As New CDO.Message
Dim Bug As String

Bug = txt_bug.Text

With CDO
    .From = "miamail@ecc"
    .To = miamail@ecc"
    .Subject = "Trovato BUG"
    .TextBody = Bug
    .Send
End With

MsgBox "E-Mail inviata correttamente!", vbOKOnly, "Bug Riportato"

txt_bug.Text = ""

End Sub

Grazie