Error al enviar correo

Estoy haciendo un programa que debe enviar un correo, pero por alguna razón no lo envía. Ya busqué en muchos lugares sin llegar a nada. El puerto que debo usar (según la página de google: https://support.google.com/a/answer/176600?hl=es) para enviar un correo con smtp.gmail.com es el 465. 

Ya revisé mil veces mi código y no encuentro ningún error.

Gracias de antemano por su ayuda.

Las líneas son las siguientes:

Public Sub EnviarCorreo(ByVal emisor As String, ByVal password As String, ByVal mensaje As String, ByVal asunto As String, ByVal destinatario As String, ByVal Exitoso As String, ByVal Fallido As String)
        Try
            MiCorreo.To.Clear()
            MiCorreo.Body = ""
            MiCorreo.Subject = ""

            MiCorreo.BodyEncoding = Text.Encoding.UTF8
            MiCorreo.SubjectEncoding = Text.Encoding.UTF8


            MiCorreo.Body = mensaje
            MiCorreo.Subject = asunto
            MiCorreo.IsBodyHtml = True
            MiCorreo.To.Add(Trim(destinatario))

            MiCorreo.From = New MailAddress(emisor)
            envios.Credentials = New NetworkCredential(emisor, password)
            envios.DeliveryMethod = SmtpDeliveryMethod.Network

            'Datos importantes no modificables para tener acceso a la cuenta de gmail:
            envios.EnableSsl = True
            envios.Host = "smtp.gmail.com"
            envios.Port = 465

            envios.Send(MiCorreo)
            MsgBox(Exitoso)
        Catch e As Exception
            MsgBox(e.Message & Fallido, MessageBoxIcon.Error)
        End Try
    End Sub