Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button4.Click
        WebBrowser1.Navigate("http://bozzquiz.bo.funpic.de/Default.aspx?write=" _
        & System.Web.HttpUtility.UrlEncode(TextBox1.Text))
        While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
            Application.DoEvents()
            System.Threading.Thread.Sleep(100)
        End While
 
        WebBrowser1.Navigate("http://bozzquiz.bo.funpic.de/datei.txt")
        While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
            Application.DoEvents()
            System.Threading.Thread.Sleep(100)
        End While
 
    End Sub
End Class