Simple buscador en ASP

Hola grupo.
Necesito buscar una palabra o frase en las paginas HTML del sitio pero me

un error y no se como solucionarlo. Les paso el codigo a ver si pueden
ayudarme. Desde ya muchisimas gracias.

<%
Dim oFSO
Dim oFolder
Dim cFiles,cFolders
Dim vCarpeta
Dim vfold()
Dim x
Dim bus
Dim vbus()
Dim cadena

vCarpeta = Server.MapPath("/Expomega/")
response.write(server.mappath("/")&"<BR>")
bus=request.form("bus")

Set oFSO = Server.CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(vCarpeta)
Set cFiles = oFolder.Files

x=0
For Each element In cFiles
if element.type="HTML Document" then
redim preserve vfold(x)
vfold(x)=element.Name
response.write(vfold(x)& "<br>")
vopen=vCarpeta&vfold(x)
set oTextStream=oFSO.OpenTextFile(vopen,ForReading,False,False)
While Not oTextStream.AtEndOfStream
cadena=oTextStream.ReadLine
if instr(cadena, bus) > 0 then
response.write(vfold(x)& "<br>")
end if
wend
objTextStream.Close
x=x+1
end if
Next
' response.write("<br>")
' for y = 0 to ubound(vfold)
' response.write(vfold(y)& "<br>")
' next


Set cFiles = Nothing
Set oFolder = Nothing
Set oFSO = Nothing%>

C:\Inetpub\wwwroot
cable.htm

Error de Microsoft VBScript en tiempo de ejecución error '800a0005'

Argumento o llamada a procedimiento no válidos

/expomega/carpetas.asp, line 27