Sim, é extremamente possível.
Eu sei que existem algoritmos mais eficazes do que eu vou passar, mas já serve como base para você começar a escrever alguma coisa, ok?
Set FSO = CreateObject("Scripting.FileSystemObject")
nomearquivo=server.mappath("pesquisa.html")
Set Pesquisa = FSO.OpenTextFile(nomearquivo,1)
While Not Pesquisa.AtEndOfStream
'Lemos Linha a Linha
Linha = Pesquisa.ReadLine
'Aqui, você deve pesquisar em Linha, se você tem o que você procura, com InStr talvez, isso aí é com vc
Wend
' Fechamos o objeto
Pesquisa.Close
Set Pesquisa = Nothing
Espero ter ajudado, abraço.