Работа с web страницей - VB

Формулировка задачи:

Доброго всем дня! Никогда не работал с интернетом, но возникла необходимость. Бросил на форму WebBrowser1. Указал путь, страница открылась. Теперь надо именно сделать то, что надо. А надо: Найти программно на странице ярлыки и выбрать значения из полей. Почему я их называю ярлыками? по тому что когда над ними находится курсор меняется сам курсор(становится в виде указательного пальца). А если кликнуть ПКМ, то в меню есть пункт "Копировать ярлык" Так вот если скопипастить в блокнот, то у всех нужных мне ярлыков указан один и тот же путь. Вот поэтому вопрос: как выбрать в WB.Document все значения полей, у которых установлена ссылка. Находил в интернете типа отобразить

Текст1 = WB.Document.documentelement.innerhtml

Но в отображенном тексте текста ссылки как у ярлыка нет сделал по другому:

Dim Q
Set Q = WB.Document

Там целую кучу свойств можно просмотреть, но где найти ссылки(ярлыки) не пойму

Решение задачи: «Работа с web страницей»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
    Dim sFrag As String, sStart As String, sEnd As String
    sStart = "<HTML><BODY><FONT FACE=Arial SIZE=1 COLOR=BLUE>"
    sFrag = "<B>This is bold</B> and <I>this is italic.</I>"
    sEnd = "</FONT></BODY></HTML>"
    PutHTMLClipboard sFrag, sStart, sEnd
End Sub
 
Private Sub Command2_Click()
    MsgBox GetHTMLClipboard
End Sub
                        