Dim x As Integer
 
            For x = 0 To anzahl.Text
 
                web.Navigate("http://www.test.de/film/start")
 
                Do
                    Application.DoEvents()
                Loop While web.IsBusy
 
                web.Document.GetElementById("start").InvokeMember("click")
 
                WARTEN BIS FILM ZU ENDE -> dann weiter mit der Schleife
 
                x = x + 1
 
            Next