Enviar correo

Question

Podrían ayudarme ?. Tengo lo siguiente y me siguen saliendo los datos del correo que proporcione en las credenciales cuando checo en la bandeja de entrada mi correo, yo necesito que aparezcan los datos del correo que envia, serian tan amables de ayudarme 

 'Se crea un nuevo objeto del mensaje
        Dim mensaje As New System.Net.Mail.MailMessage
        'Direccion de correo a la cual enviaremos el mensaje
        mensaje.To.Add("[e-mail]")
        'Asunto
        mensaje.Subject = TextBox1.Text
        mensaje.SubjectEncoding = System.Text.Encoding.UTF8
        'Cuerpo del mensaje
        Dim body As String = String.Format("Mensaje: {0}  From: {1}", TextBox3.Text, TextBox2.Text)
        mensaje.Body = body
        mensaje.BodyEncoding = System.Text.Encoding.UTF8
        mensaje.IsBodyHtml = True 'Si queremos que se envíe como HTML
        'Correo desde el cual enviaremos el mensaje
        mensaje.From = New System.Net.Mail.MailAddress(TextBox2.Text)
        '-----CLIENTE DE CORREO-----'
        'creamos un objeto del cliente de correo
        Dim cliente As New System.Net.Mail.SmtpClient
        'se crean las credenciales del correo emisor
        cliente.Credentials = New System.Net.NetworkCredential("[e-mail]", "password)
        'configuramos el puerto y la seguridad
        cliente.Port = 25
        cliente.EnableSsl = True
        cliente.Host = "smtp.live.com"

        '-----ENVIO DEL CORREO-----'
        Try
            cliente.Send(mensaje)
            Response.Write("<script>alert('Tu mensaje fue enviado satisfactoriamente')</script>")
        Catch ex As System.Net.Mail.SmtpException
            Response.Write(String.Format("<script>alert('{0}')</script>", ex.Message))
        End Try

Llevo mucho tiempo intentandolo y no consigo nada