Отправка email используя данны из двух TextBox'ов

Private Sub SendEmail_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SendEmail.Click
        Dim mail As New MailMessage()
        mail.From = New MailAddress("от кого")
        mail.To.Add("кому")
        mail.Subject = "Тема"
        mail.Body = TextBox1.Text
        Try
            mail.Attachments.Add(New Attachment(pathandfilename))
        Catch ex As Exception
        End Try
 
        Dim smtp As New SmtpClient("smtp.yandex.ru", "25") 'Например
        smtp.Credentials = New System.Net.NetworkCredential("майл", "пасс")
        Try
            smtp.Send(mail)
        Catch ex As Exception
            'MsgBox(Err.Description, MsgBoxStyle.Critical)
        Finally
            mail.Dispose()
            smtp = Nothing
        End Try
    End Sub

Imports System.Net.Mail
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim tekst As String = TextBox1.Text
        Try
            Dim SmtpServer As New SmtpClient()
            Dim mail As New MailMessage()
            SmtpServer.Credentials = New Net.NetworkCredential("Маил", "Пароль")
            SmtpServer.Port = 587
            SmtpServer.Host = "smtp.mail.ru"
            mail = New MailMessage()
            mail.From = New MailAddress("От кого")
            mail.To.Add("Кому")
            mail.Subject = "Тема сообщения"
            SmtpServer.EnableSsl = True
            mail.Body = tekst
            SmtpServer.Send(mail)
            MsgBox("Сообщение отправлено")
        Catch ex As Exception
            MsgBox("Сообщение не отправлено")
        End Try
    End Sub
End Class