[ابو روضة]

هل يجوز اختصار هذا الكود بحلقة تكرارية واحدة

كود :

Dim doc As New HtmlAgilityPack.HtmlDocument
       doc.LoadHtml(RichTextBox1.Text)
       For Each n As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//*[@id='EmbedScmain']/text()")
           ListBox1.Items.Add(n.InnerText.Replace("&lt;", "<").Replace("&gt;", ">"))
       Next
       For Each n As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//*[@id='EmbedSc0']/text()")
           ListBox1.Items.Add(n.InnerText.Replace("&lt;", "<").Replace("&gt;", ">"))
       Next
       For Each n As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//*[@id='EmbedSc1']/text()")
           ListBox1.Items.Add(n.InnerText.Replace("&lt;", "<").Replace("&gt;", ">"))
       Next
       For Each n As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//*[@id='EmbedSc2']/text()")
           ListBox1.Items.Add(n.InnerText.Replace("&lt;", "<").Replace("&gt;", ">"))
       Next
       For Each n As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//*[@id='EmbedSc3']/text()")
           ListBox1.Items.Add(n.InnerText.Replace("&lt;", "<").Replace("&gt;", ">"))
       Next
       For Each n As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//*[@id='EmbedSc4']/text()")
           ListBox1.Items.Add(n.InnerText.Replace("&lt;", "<").Replace("&gt;", ">"))
       Next