Visual Basic - Enviar correo por Smtp

Hola a todos,
Cree una pequeña aplicacion, que una de las cosas que permite hacer es suspuestamente enviar correos electronicos a traves del smtp, pero no se donde estoy fallando que no me hace caso, aqui os dejo el codigo. A ver si me podeis hechar un cable.

Un saludo

Codigo----->

Dim enviar As New clsSendMail
Dim e As Integer

On Error GoTo GestionErrores:

enviar.SMTPHost = smtp.mail.yahoo.com
enviar.UserName = maria_85v ' probe tanto a ponerlo asi como [email protected]
enviar.password = ***** 'aqui va la pass
enviar.From = [email protected]
enviar.Recipient = email del destinatario
enviar.Subject = Asunto
enviar.Message = el email
enviar.Send
Set enviar = Nothing

GestionErrores:
Debug.Print "Error " & Err.Number & " " & Err.Description
End If