Buscar Datos en Archivo

Fede
30 de Enero del 2004
Necesito buscar un texto en un archivo, y si este esta q pase una cosa, y si no esta q pase otra.

en?
30 de Enero del 2004
mira Fede, esta podría ser una manera:

dim TextoLeido as String
dim Encontrado as Boolean

open RUTA_FICHERO for input as #1
while not eof(1) And Not Encontrado
line input #1, TextoLeido
if InStr(1, TextoLeido, TextoQueBuscas, vbTextcompare) Then Encontrado = True
wend
close #1

if Encontrado Then
'pasa una cosa
else
'pasa otra
end if

saludos