[Uzvern]

Так, с поиском мне помогли :

Код:

Dim q1 = RichTextBox1.Find("<a")
        Dim q2 = RichTextBox1.Find("</a>")
        Dim qq = q2 - q1
        MsgBox(q1 & Chr(13) & q2 & Chr(13) & qq)

ТОесьт он вычисялет с какого символа начинаеться тег ("<a"), потом вычисляет с какого начинается ("</a>"), вычитает их и получается число символов между ними. дак вот мне нужно сделать чтобы он эти символы выводил.