Почтовый клиент: как отправить письмо нескольким адресатам

Imports System.Net.Mail
Imports System.IO
 
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Mail As New MailMessage
        Dim email As String
        Dim passw As String
        email = Form2.TextBox1.Text
        passw = Form2.TextBox2.Text
        Mail.Priority = MailPriority.Normal ' важность письма  
        Mail.Subject = TextBox1.Text  ' тема  
        Mail.To.Add("TextBox2.Text") ' кому  
        Mail.From = New MailAddress(Form2.TextBox1.Text) ' от кого  
        Mail.Body = RichTextBox1.Text ' письмо  
        Dim SMTP As New SmtpClient("smtp.yandex.ru")
        SMTP.Port = "25" ' порт smtp yandex 
        SMTP.EnableSsl = False ' протокол для шифрования  
        SMTP.Credentials = New System.Net.NetworkCredential(email, passw)
        SMTP.Send(Mail) ' отправляем письмо  
        MsgBox("Письмо отправлено")
    End Sub
End Class

Адреса.Text = Адреса.Text.Replace(" ", ";")

For Each Address As String In TextBox2.Text.Split()
     Mail.To.Add(Address)
Next