Visiual Basic 2008 -> Textbox Inhalt an eine E-Mail Adresse senden

Hey!
Ich habs jetzt doch mal mit der VB probiert.
Ist echt nicht schlecht!
Nur ein problem habe ich!
Und zwar habe ich eine Textbox erstellt und einen Sendebutton installiert. Man sollte was in die Textbox reinschreiben können und wenn ich auf Senden drücke sollte eine Email bei mir ankommen mit dem Text der in der Textbox war. Ich hab schon viele Foren durchgeschaut aber alles funktioniert nicht! Ich bin echt langsam am verzweifeln. Ich hab hier schon ein Code, der eigentlich klappen sollte:


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
     
         Dim sentmail As New Net.Mail.SmtpClient("smtp.mail.yahoo.com", 25)
         Dim message As New Net.Mail.MailMessage
         Dim adress As New Net.Mail.MailAddress(TextBox1.Text)
         Dim sempf As New Net.Mail.MailAddress("xxxxx@yahoo.de", "pop.mail.yahoo.de")
         Dim aut As New Net.NetworkCredential("Username", "Passwort")
         message.From = adress
         message######.Add(sempf)
         message.IsBodyHtml = False
         message.Subject = "sadsa"
         message.Body = TextBox1.Text
         sentmail.DeliveryMethod = Net.Mail.SmtpDeliveryMethod.Network
         sentmail.Credentials = aut
         sentmail.UseDefaultCredentials = False
         sentmail.Send(message)
     End Sub


wenn ich auf senden klicke hängt sich das Programm auf und es zeigt mir einen Fehler:


http://www.fotos-hochladen.net" target="_blank"><img src=" http://www.fotos-hochladen.net/vbfehlervb3er7ud6zg.jpg" border="0"></a>][/url]

Kann mir den wirklich keiner Helfen

Hab ich schon versucht ....dann ging garnichts mehr und das programm hatt sich aufgehängt

Also:


Dim Msg As New MailMessage
        Dim myCredentials As New System.Net.NetworkCredential
        myCredentials.UserName = "ABSENDER" ' Absender
        myCredentials.Password = "DEIN PW" ' Passwort

        Msg.IsBodyHtml = False

        Dim mySmtpsvr As New SmtpClient()
        mySmtpsvr.Host = "SMTP SERVER" ' SMTP Server
        mySmtpsvr.Port = 25 ' SMTP Port

        mySmtpsvr.UseDefaultCredentials = False
        mySmtpsvr.Credentials = myCredentials

        Try
            Msg.From = New MailAddress("Noch einmal ABSENDER") ' Absender noch einmal
            Msg.To.Add("EMPFÄNGER") ' Empfänger
            Msg.Subject = "BETREFF" ' Der Betreff
            Msg.Body = Der INHALT  ' Der Inhalt auch genannt body
            mySmtpsvr.Send(Msg)
            MsgBox("Test", MsgBoxStyle.Information, "Danke")

        Catch ex As Exception
            MsgBox(ex.Message) ' Fehlermeldung wird ausgegeben in messagebox
        End Try