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("[email protected]", "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: