[عبدالله الدوسري]

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

كود :

       Dim strRegex As String = "<?href\s*=\s*[""'].+?[""'][^>]*?"
       Dim myRegex As New Regex(strRegex, RegexOptions.None)
       For Each myMatch As Match In myRegex.Matches(RichTextBox1.Text)
           If myMatch.Success Then
               MsgBox(myMatch.Value)
           End If
       Next