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
For Each row As HtmlNode In table.SelectNodes("tr")
For Each cell As HtmlNode In row.SelectNodes("td")