[VB.NET] جلب اسماء أربــاع القرآن من هنا

PHP كود :
 ListBox1.Items.Clear()
        Dim url As String = "http://www.quranpagesmp3.com/quraters/qurtr1_mp3.php"
        Dim wc As New WebClient
        wc.Encoding = Encoding.Default
        Dim html As String = wc.DownloadString(url)
        Dim doc As New HtmlAgilityPack.HtmlDocument
        html = WebUtility.HtmlDecode(html)
        doc.LoadHtml(html)
        Dim nod As HtmlAgilityPack.HtmlNodeCollection = doc.DocumentNode.SelectNodes("//table[2]/tbody")
        For Each n As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//td[5]/a")
            lst.Add(n.Attributes("href").Value)
        Next
        For Each n2 As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//td[1]")
            If n2.InnerText.Contains("حزب") = False Then
                ListBox1.Items.Add(n2.InnerText)
            End If
        Next
        Label1.Text = ListBox1.Items.Count