Здравствуйте Alexanbar!
Спасибо за помощь, Ваш вариант оказался лучше

, чем мой
Private Sub Form_Load()
LstSites.AddItem "Оглавление"
LstSites.AddItem "Тесты"
End Sub
Private Sub LstSites_Click()
If LstSites.Text = "Оглавление" Then
WebBrowser.Navigate Trim$("C:\Program Files\Microsoft Visual Studio\VB98\проект1\Html\DHTMLProject_DHTMLPage1.htm")
End If
End Sub
Но как перехватить именно клик по гиперссылке
Заранее благодарен.