VB E-Mail mit Text Box als Inhalt versenden

        ' Referenziere System.Web.Services  
        ' [Projekt]->[Verweis hinzufügen]->[.NET]   
        ' und füge dem Modul die folgende Imports-Direktive hinzu:   
        ' Imports System.Net.Mail   
        '    
        ' Neue Nachricht erzeugen:   
        Dim eMail As New MailMessage
        Dim mySmtpsvr As New SmtpClient()
        mySmtpsvr.Host = "smtp.web.de" 'für Web.de  
        mySmtpsvr.Port = 25
        Dim myCredentials As New System.Net.NetworkCredential
        myCredentials.UserName = "benutzer@domain.de"  
        myCredentials.Password = "Passwort"  
        mySmtpsvr.UseDefaultCredentials = False
        mySmtpsvr.Credentials = myCredentials

        ' Eigenschaften der E-Mail festlegen   
        With eMail
            ' Absender   
            .From = New MailAddress("ab@sender.de")  
            ' Empfänger   
            .To.Add("to@to.de")  
            ' Kopienempfänger   
            .CC.Add("cc@cc.de")  
            ' Anonyme Kopienempfänger   
            .Bcc.Add("bcc@cc.de")  
            ' Titel der e-Mail   
            .Subject = "EMail aus VB .NET mit System.Net.Mail"  
            ' Format des Texts (Text / HTML)   
            '.BodyFormat = MailFormat.Text  
            ' Codierung des Texts   
            .BodyEncoding = System.Text.Encoding.Default
            ' Text   
            .Body = "Schöne Grüße aus Krefeld!"  
            ' Anhänge nach Bedarf hinzufügen (hier eine einzelne Grafik)   
            .Attachments.Add(New Attachment("c:\aqua_bitmap.cpp"))  
            ' Prioritätskennzeichnung der Mail   
            .Priority = MailPriority.Low
        End With
        Try
            ' Die Mail über den SMTP-Server versenden   
            mySmtpsvr.Send(eMail) ' MailMessage   
            MsgBox("Send")  
        Catch ex As Exception
            MsgBox(Err.Number & ex.Message & ex.StackTrace.ToString) 'Falls  ein Fehler auftritt wird eine MsgBox angezeigt  
        End Try

Imports System.Net
Imports System.Net.Mail

 Dim text As String
            text = "" & Textbox1.Text & ""  
            Dim myClient As New Net.Mail.SmtpClient("smtp server")  
            myClient.Credentials = New Net.NetworkCredential("benutzername an smtp server", "passwort an smtp server")  
            myClient.Send("absender email", "empfänger email", "Betreff", text)  

Imports System.Net
Imports System.Net.Mail