Sub GetNavBarDocument()

Dim HTMLinput As MSHTML.IHTMLElement
Dim ie As New SHDocVw.InternetExplorer
Dim HTMLdoc As MSHTML.HTMLDocument
Dim HTMLButtons As MSHTML.IHTMLElementCollection
Dim HTMLButton As MSHTML.IHTMLElement
'Set ie = New SHDocVw.InternetExplorer
ie.Visible = True
ie.Navigate "вебсайт см. файл"

Do While ie.ReadyState <> READYSTATE_COMPLETE
DoEvents
Loop

Set HTMLdoc = ie.Document
Set HTMLinput = HTMLdoc.getElementsByClassName("nav navbar-nav")' Не находит елемент.
For Each HTMLButton In HTMLinput 'не обращайте внимание на переменную только контейнер
Debug.Print HTMLButton.ClassName, HTMLButton.tagName, HTMLButton.ID, HTMLButton.innerText, HTMLButton.innerHTML
Next HTMLButton
'по идеее поймали навигационный бар выделен красеым и в дамки ( li третий).
HTMLinput.Item(3).Click

End Sub