Private Function GetPlayerPoints(ByVal name As String) As String
        Dim rows = (From row In WebBrowser1.Document.GetElementsByTagName("thead")(0).Children
                    Select row).Skip(1)

        Return (From el As HtmlElement In rows
                Where el.Children(1).InnerText.ToLower.Contains(name)
                Select el.Children(2).InnerText).First().Replace(" ", "")
    End Function