Enviar vários emails com Visual Basic 2010

[Soldado 600]

Boa noite pessoal 

Estudei Visual Basic 6 , em 1999 , rsrsr , estou dando um atualizada no 2010 , e gostaria  que os amigos me ajudassem . Estou tentando enviar vários email ao mesmo tempo , usando um Loop . a chave primária e numérica e está tendo problema na textbox quando passo para uma variavel  short .... E se os amigos poderia me ajudar também com uma msgbox  temporidada !!!!

 

        Dim contador As Integer = 3
        Dim soma65 As Short = -3
        Dim Mail As New MailMessage
        Dim cias As String
        Dim emaild As String

        Me.CadastroBindingSource.MoveLast()
        soma65 = soma65 + CódigoTextBox.Text

        cias = CiasComboBox.Text

        Do

            Debug.Write(contador.ToString & " ")

            If Checbox2cia.Checked = True Then

                If cias = "2ª Cia de Fuzileiros" Then

                    txtemaildestino.Text = EmailTextBox.Text
                    emaild = txtemaildestino.Text
                    Mail.To.Add("emaild")
                    Mail.Subject = txtassunto.Text
                    Mail.From = New MailAddress("******@hotmail.com")
                    Mail.Body = txtmensagem.Text

                    Dim SMTP As New SmtpClient("smtp.live.com")
                    SMTP.EnableSsl = True
                    SMTP.Credentials = New System.Net.NetworkCredential("*********@hotmail.com", "26alp35alp")
                    SMTP.Port = 587
                    Try
                        SMTP.Send(Mail)
                        MsgBox("A Mensagem foi entregue ao Combatente .", MsgBoxStyle.Information)

                    Catch ex As Exception
                        MsgBox(ex.Message & vbCrLf)
                    End Try

                End If

            End If

            contador = +1

            Me.CadastroBindingSource.MoveNext()
            cias = CiasComboBox.Text

        Loop Until contador <= txtnumero.Text