VB.NET Enviar emails em massa

[densyy]

Olá, pessoal!

Estou em busca de um método eficiente para se enviar emails em massa e com boa performance no Vb.Net

 

Aqui as variáveis Globais que iniciam já definidas.

Shared Host As String
Shared porta As Integer
Shared login As String
Shared senha As String
Shared SSL As Boolean

Shared nomeRemetente As String
Shared emailRemetente As String
Shared assuntoMensagem As String
Shared conteudoMensagem As String

 

Bom, Aqui tenho o método responsável pelo envio de Emails.

Sub enviarEmail(Byval destino as String)
    Dim emailDestinatario As String = destino
    Try
        Dim Mail As New MailMessage
        Mail.To.Add(emailDestinatario)
        Mail.From = New MailAddress(emailRemetente)
        Mail.Priority = MailPriority.Normal
        Mail.IsBodyHtml = True
        Mail.Subject = assuntoMensagem
        Mail.Body = conteudoMensagem

        Dim SMTP As New SmtpClient(Host)
        SMTP.Port = porta
        SMTP.EnableSsl = SSL
        SMTP.Credentials = New System.Net.NetworkCredential(login, senha)
        SMTP.Send(Mail)
    Catch ex As Exception
    End Try
End Sub

Agora preciso tornar esse código útil, porque não há muita serventia em enviar 1 por 1 email...

Já tentei usar diversos recursos como: Threading, Task, Parallel, ThreadPool... Mas não consegui nada significativo até agora

 

Alguém aí capaz de me orientar?

Agradeço desde já!