Visual Basic.NET - Enviar correo VB 10

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        If TextBox4.Text = "" Then

            MsgBox("Ingresa un nombre de usuario", vbInformation)

            TextBox4.Focus()

        ElseIf TextBox5.Text = "" Then

            MsgBox("Ingresa una contraseña", vbInformation)

            TextBox5.Focus()

        ElseIf TextBox6.Text = "" Then

            MsgBox("Ingresa la confirmación tu contraseña", vbInformation)

            TextBox6.Focus()

        ElseIf TextBox7.Text = "" Then

            MsgBox("Ingresa tu nombre", vbInformation)

            TextBox7.Focus()

        ElseIf TextBox8.Text = "" Then

            MsgBox("Ingresa tu correo electrónico", vbInformation)

            TextBox8.Focus()

        ElseIf ComboBox2.Text = "" Then

            MsgBox("Elige un tipo de cuenta")

            ComboBox2.Focus()

        ElseIf TextBox5.Text = TextBox6.Text Then

         -----------> ESTE ES EL MENSAJE PREDETERMINADO   txtMensaje.text = "Bienvenido al Sistema. Tu correo electrónico es:" + TextBox8.Text + ", tu nombre de usuario es:" + TextBox4.Text + ", tu contraseña es:" + TextBox5.Text + ", Tu clave generada es: xxx. Todos estos datos son importante para que puedas iniciar sesión, por tanto si tienes problemas al iniciar sesión, por favor comunícate con el administrador del software.")

            'Tocaría llamar una funcion Sub Correo

            MsgBox("Una nueva cuenta se creó y fué enviada al correo: " + TextBox8.Text + ", todos estos datos son necesarios para que puedas iniciar sesión!", vbInformation)

            Call LimpiarCamposDondeSeCreanCuentas()

            Timer2.Enabled = True

        Else

            MsgBox("La confirmación de tu contraseña no coincide!", vbInformation)

        End If

    End Sub

Sub Correo()

        Dim Message As New System.Net.Mail.MailMessage()

        Dim SMTP As New System.Net.Mail.SmtpClient

        'CONFIGURACIÓN DEL STMP o sea el servidor saliente de alguna cliente correo por ejemplo gmail, outlook.com, yahoo etc.

        'SMTP.Credentials = New System.Net.NetworkCredential("cuenta de correo", "contraseña")

        SMTP.Credentials = New System.Net.NetworkCredential("aquimicorreo@outlook.com", "Mi contraseña")

        SMTP.Host = "smtp-mail.outlook.com"

        SMTP.Port = 587

        SMTP.EnableSsl = True

        ' CONFIGURACION DEL MENSAJE

        Message.[To].Add(Me.TextBox8.Text.ToString)

        Message.From = New System.Net.Mail.MailAddress("aquimicorreo@outlook.com", "Aqui Mi nombre", System.Text.Encoding.UTF8)

        Message.Subject = "Mi asunto"

        Message.SubjectEncoding = System.Text.Encoding.UTF8

        Message.Body = txtMensaje.text 'contenido del mail  -----> acá necesitaría decirle al programa que me jale la variable de arriba, pero adivinen? no se como es que puedo enviar este mensaje predeterminado, o sea el mensaje que está arriba en negrita

        Message.BodyEncoding = System.Text.Encoding.UTF8

        Message.Priority = System.Net.Mail.MailPriority.Normal

        Message.IsBodyHtml = False

    End Sub