[elgokr]

وعليكم السلام ورحمة الله وبركاته

السبب فى التكرار اللا نهائي هو هذا الجزء لاستخدام Do

كود :

               Do
                   ListBox1.Items.Add(item.InnerText)
                   If item.GetAttribute("Id").Contains("msgtxt3567146535") Then
                       Exit Do
                   End If
               Loop

قم باستبداله بهذا الكود

كود :

ListBox1.Items.Add(item.InnerText)

وان شاء الله سيعمل دون الحاجة لباقى كود الـ Do والتحقق

تحياتى لك

وتمنياتى لك التوفيق