Help on sending emails

Imports System.Net.Mail

   Dim Msg As New MailMessage
            Dim myCredentials As New System.Net.NetworkCredential
            myCredentials.UserName = "@web.de" ' sender email
            myCredentials.Password = "password" ' sender pw

            Msg.IsBodyHtml = False

            Dim mySmtpsvr As New SmtpClient()
            mySmtpsvr.Host = "smtp.web.de" 'smtp
            mySmtpsvr.Port = 25 ' port

            mySmtpsvr.UseDefaultCredentials = False
            mySmtpsvr.Credentials = myCredentials



            Try
                Msg.From = New MailAddress("allin1report@web.de") ' from
                Msg.To.Add("@hotmail.de") ' to
                Msg.Subject = TextBox2.Text ' subject
                Msg.Body = RichTextBox1.Text & vbNewLine & vbNewLine & vbNewLine & _
                "Name: " & TextBox1.Text & _
                vbNewLine & _
                "Email: " & TextBox3.Text
                mySmtpsvr.Send(Msg)
                MsgBox("E-Mail sended.", MsgBoxStyle******rmation, Title:="Information")
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End If