Visual Basic.NET - Error al enviar correo

Hola
por favor podrian ayudarme con este error
en que parte del codigo esta el error

Dim EMsg As New System.Net.Mail.MailMessage
EMsg.From = New MailAddress("[email protected]")
EMsg.To.Add("[email protected]")
EMsg.Subject = "Tu asunto"
EMsg.Body = "tu mensaje"
EMsg.IsBodyHtml = True

Dim smtp As New SmtpClient("smtp.gmail.com", 465)
smtp.DeliveryMethod = Net.Mail.SmtpDeliveryMethod.Network
smtp.UseDefaultCredentials = False
smtp.Credentials = New Net.NetworkCredential("[email protected]", "******")
smtp.EnableSsl = True

Try

smtp.Send(EMsg)

MessageBox.Show("Se ha enviado la consulta al correo seleccionado", "Envío de mensajes", MessageBoxButtons.OK, MessageBoxIcon.Information)

Catch ex As Exception

MessageBox.Show(ex.Message)

ex.Data.Clear()

End Try