codice:
    Dim objMSHTML As New MSHTML.HTMLDocument
    Dim objDoc As MSHTML.HTMLDocument

    Set objDoc = objMSHTML.createDocumentFromUrl("http://www.microsoft.com", vbNullString)

    Do While objDoc.readyState <> "complete"
        DoEvents
    Loop

    Dim html As String

    html = objDoc.documentElement.outerHTML

    Set objDoc = Nothing
    Set objMSHTML = Nothing
Questo esempio recupera l'html dalla pagina home del sito microsoft; il contenuto viene salvato nella variabile html.

Poi dipende da quello che ti serve, potrebbe bastarti una Instr per verificare se un sottostringa è presente nella variabile html.