Hola eeeee
Para mi, el problema es lo que estás envíando a la función, lo que hace tu programa es leer secuencialmente un archivo de texto y comprobar línea a línea un patron, entonces debes envíarle la línea de texto, no el objeto.
Código:
Do While Not objTextFile.AtEndOfStream
strReadLineText = objTextFile.ReadLine
Response.Write(RegExpTest(Expresion, objTextFile))
Loop
%>
Código:
Do While Not objTextFile.AtEndOfStream
strReadLineText = objTextFile.ReadLine
Response.Write(RegExpTest(Expresion, strReadLineText ))
Loop
%>
Saludos