Imports System

Imports HtmlAgilityPack

​

Public Module Module1

    Public Sub Main()

        Dim web as new Htmlweb()

        Dim doc As HtmlDocument = web.Load("https://www.thepowerof10.info/rankings/rankinglists.aspx?clubid=98&agegroups=ALL&sex=M&year=2021&firstclaimonly=y&limits=n&events=HM")

        For Each table As HtmlNode In doc.DocumentNode.SelectNodes("//table[1]")

        dim parentNode as HtmlNode = table.ParentNode

​

        If parentNode.Id ="cphBody_lblOutput" then

            dim rw as string = ""

            For Each row As HtmlNode In table.SelectNodes("tr")

                rw = ""

                For Each cell As HtmlNode In row.SelectNodes("td")

                    if rw.length > 0 then

                        rw & = ", "

                    end if

                    rw &= cell.InnerText

                Next

                Console.WriteLine(rw)

            Next

        End If

        Next

    End Sub

End Module