ACRESCENTAR UM TEXTO APOS OUTRO

    Dim smtpServer As New SmtpClient()
        Dim mail As New MailMessage
        smtpServer.Credentials = New Net.NetworkCredential([Ô]phoenix.phnx@gmail.com[Ô], [Ô]XXXXXXXXXXXXXXX[Ô])
        [ô]smtpServer.Credentials = New Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
        smtpServer.Port = 587
        smtpServer.Host = [Ô]smtp.gmail.com[Ô]
        smtpServer.EnableSsl = True
        mail.From = New MailAddress([Ô]phoenix.phnx@gmail.com[Ô])
        [ô]mail.From = New MailAddress(TextBox1.Text)
        Try
            mail.To.Add([Ô]pessoa@hotmail.com[Ô])
            mail.Subject = [Ô]TESTE[Ô]
            mail.Body = [Ô]TESTE[Ô]
            mail.IsBodyHtml = True
            smtpServer.Send(mail)
            System.Windows.Forms.Application.DoEvents()
            Debug.Print([Ô]OK EMAIL ENVIADO - [Ô])
        Catch ex As Exception
            Label1.Text = [Ô]ERRO[Ô]
        End Try 

Private Sub CONFIRMAR_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CONFIRMAR_.CheckedChanged
      If(CONFIRMAR.Checked) Then
         TxtMsg.Text = [Ô]Confirmar . . . . [Ô] & vbCrLf & [Ô]<BR>[Ô]
     End If
    End Sub

 Me.TextBox1.AppendText([Ô]<p> </p>[Ô] & [Ô]<p> </p>[Ô] & [Ô]<p> </p>[Ô] & [Ô]Favor confirmar o recebimento deste e-mail[Ô])