بما أنه لا يملك أى دى فممكن هنا من خلال الكلاس التابع للتاج نيم
كود :
Dim input As HtmlElementCollection
input = WebBrowser1.Document.GetElementsByTagName("a")
For Each item As HtmlElement In input
If item.GetAttribute("className").Contains("Text") Then
RichTextBox1.Text = item.GetAttribute("href")
End If
Next item
