[سعود]

لو تقصد الثاني

كود :

john</a>

فباستخدام
HtmlAgilityPack
اكثر دقة من الـ Regularexpression

كود :

Dim doc As New HtmlAgilityPack.HtmlDocument
        doc.LoadHtml(TextBox1.Text)
        Dim elem As HtmlAgilityPack.HtmlNode = doc.DocumentNode.SelectSingleNode("//a[@href]")
        MsgBox(elem.InnerText)