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.