Enviar e_mail com vb.net

Imports System.Net.Mail
Imports System.Net
Imports System.IO

Public Sub EnviaEmail(ByVal Destinatario As String, ByVal Conteudo As String)
     Dim Mailmsg As New System.Net.Mail.MailMessage()
     Dim mSmtpCliente As New SmtpClient("xxx.xxx.xxx.xxx", 25)
     Mailmsg.From = New MailAddress(eu@eu.com.br)
     Mailmsg.To.Add(New MailAddress(Destinatario))
     Mailmsg.IsBodyHtml = True
     Mailmsg.Subject = "Alteração de Velocidade máxima de alimentadores"
     Mailmsg.Body = Conteudo
     mSmtpCliente.Send(Mailmsg)
End Sub