Dim Table As HtmlElement = WebBrowser1.Document.GetElementsByTagName("Table").Item(10)
        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)
                    Label1.Text = Cel.InnerText // запись в label 
                End If
            Next
        Next