Rapidshare Account Checker Problem

Public Class Form1


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("https://ssl.rapidshare.com/premiumzone.html")
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles check.Click
        WebBrowser1.Document.GetElementById("login").InnerText = TextBox1.Text
        WebBrowser1.Document.GetElementById("password").InnerText = TextBox2.Text
        WebBrowser1.Document.Forms(0).InvokeMember("submit")


        Do While WebBrowser1.ReadyState = WebBrowserReadyState.Complete
            Application.DoEvents()
        Loop


        Dim html As String = WebBrowser1.Document.All(1).OuterHtml
        If html.Contains("Das Konto wurde gefunden, aber das Passwort ist falsch.") Then
            status.Text = "Login fehlgeschlagen..."
            WebBrowser1.Navigate("https://ssl.rapidshare.com/premiumzone.html")
        End If


        If html.Contains("Das Konto wurde gefunden, aber das Passwort ist falsch.") Then
            status.Text = "Login fehlgeschlagen..."
            WebBrowser1.Navigate("https://ssl.rapidshare.com/premiumzone.html")
        Else
            status.Text = "Login erfolgreich..."
            WebBrowser1.Document.All("inhaltbox").InvokeMember("submit")
            WebBrowser1.Navigate("https://ssl.rapidshare.com/cgi-bin/premiumzone.cgi")
        End If
    End Sub
End Class