im Tables As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("Table")
    Dim Table As HtmlElement = WebBrowser1.Document.GetElementsByTagName("Table").Item(0)
    Dim Rows As HtmlElementCollection = Table.GetElementsByTagName("tr")
    For j = 0 To Rows.Count - 1
      Dim Cels As HtmlElementCollection = Rows.Item(j).GetElementsByTagName("td")
      For i = 0 To Cels.Count - 1
        If Cels.Item(i).InnerText <> "" Then
          Dim Cel As HtmlElement = Cels.Item(i)
           
        End If
      Next
    Next