Visual Basic.NET - Error al enviar correos desde una aplicación vb.net

' En el codigo siguente :

' 	CBServidor es ComboBox 

' 	LBExpedidores es ListBox 

' 	LBDestinos es ListBox

' 	LBAttachement es ListBox

' 	RTBMensaje es RichTextBox

' 	TObjet es TextBox

    Dim Mail As System.Net.Mail.MailMessage

    Dim smtp As System.Net.Mail.SmtpClient

    Dim Expedidor As String

    Dim Destino As String

        Try

            smtp = New System.Net.Mail.SmtpClient(CBServidor.Text) ' Designar un servidor SMTP

    ' smtp.Timeout = 600 '    Si es necesario, dependiendo de la velocidad del servidor

            For Exp As Integer = 0 To LBExpedidores.SelectedIndices.Count - 1

                For Des As Integer = 0 To LBDestinos.SelectedIndices.Count - 1

                    Mail = New System.Net.Mail.MailMessage

                    Mail.SubjectEncoding = System.Text.UTF8Encoding.UTF8 ' Formato de objeto

                    Mail.BodyEncoding = System.Text.UTF8Encoding.UTF8 ' Formato de Mensaje

                    Mail.Subject = TObjet.Text   ' Objeto de Mensaje

                    Mail.Body = RTBMensaje.Text  ' El Mensaje

                    For Each S As String In LBAttachement.Items

                        Dim Attache As New Attachment(S)

                        Mail.Attachments.Add(Attache)

                    Next

                    Expedidor = LBExpedidores.Items(Exp)

                    Mail.From = New System.Net.Mail.MailAddress(Expedidor) ' Designar un expedidor

                    Destino = LBDestinos.Items(Des)

                    Mail.To.Add(New System.Net.Mail.MailAddress(Destino)) ' Designar un Destino

                    smtp.Send(Mail) ' Enviar Mensaje

        ' Posible poner aquí un retraso de 1/4 de segundo. 	

                    Mail.Attachments.Dispose()

                    Mail.Dispose()

                Next Des

            Next Exp

        Catch ex As ApplicationException

            MessageBox.Show(ex.Message)

        Finally

            smtp = Nothing

            Try

                Mail.Attachments.Dispose()

                Mail.Dispose()

            Catch

            End Try

            Mail = Nothing

        End Try