Visual Basic: Cannot Connect to smtp server

Moin Leute.

Hab mir ein kleines progrämmchen geschrieben das mir auch emails sendet während es läuft.
Die sub lautet so:

Sub Abschicken()
Dim smtpserver As New SmtpClient
Dim email As New MailMessage
smtpserver.Credentials = New Net.NetworkCredential("MEINE EMAILADRESSE", "MEIN EMAILPASSWORT")
smtpserver.Port = 25
smtpserver.Host = "smtp.web.de"
email = New MailMessage
email.From = New MailAddress("MEINE EMAILADRESSE")
email.To.Add("MEINE EMAILADRESSE")
email.Subject = "Email"
email.Body = erhaltenerText.Text
smtpserver.Send(email)
End Sub

Beim debuggen kommt bei der zeile smtpserver.send(email) ein fehler: Dienst nicht verfügbar. Übertragungskanal wird geschlossen. Die Serverantwort war: Cannot connect to SMTP server 217.72.192.157 (217.72.192.157:25), connect timeout

Habt ihr eine lösung?

Anstatt deinen Code irgendwie manuell ein zu färben, könntest du einfach Code-Tags benutzen.

Trifft die Fehlermeldung denn zu?

Was meinst mit zutreffen?

Ob der entsprechende E-Mail Dienst wirklich erreichbar ist bzw. unter der angegebenen Addresse.

das ist alles richtig ja.