Puoi provare una cosa del genere
codice:
    Private Sub cerca(ByVal testodacercare As String)
        Dim objreader As IO.StreamReader
        Dim testo As String

        objreader = New IO.StreamReader("c:\log.html")

        testo = objreader.ReadToEnd

        If InStr(testo, testodacercare) <> 0 Then
            MsgBox("Trovato!")
        End If

        objreader.Dispose()
    End Sub
Instr ti cerca se all'interno di una stringa c'è una stringa uguale a quella che passi come parametro e ti restituisce la posizione del primo carattere trovato.

Puoi studiarti un ciclo per scorrerti il file e visualizzare le parole che trovi in una listbox.