Отправка данных на почту - VB

Формулировка задачи:

Короче пишу программу. В ней есть функция отправки введенных пользователем данных на почту. Не могу понять как сделать так, чтобы эти данные отсылались сразу на два почтовика

.To = "йцукен@mail.ru"

Решение задачи: «Отправка данных на почту»

textual
                            Листинг программы 
                        

                            Dim Mails() As String
        Mails = Split("1@mail.ru; [email]2@mail.ru[/email]", ";")
 
        For Each mail In Mails
            .To = Trim(mail)
        Next
                        