Dim web As New System.Windows.Forms.WebBrowser() web.ScriptErrorsSuppressed = True web.Navigate("http://www.***") Do Until web.ReadyState = 4 Application.DoEvents Loop Dim elems As object = web.Document.GetElementsByTagName("table") elems = elems(0).GetElementsByTagName("tr")