Visual Basic 6 - Ricerca di una parola in un txt

Ciao a tutti!
Questa volta volevo sapere come ricercare una determinata parola (scritta in una textbox) in un documento di testo.
Se la parola viene trovata visualizza un msgbox "parola esistente" altrimenti msgbox "parola inesistente".
Spero ke mi rispondiate...

if instr(miatxtbox.test,"parolada ricercare">0 then
msgbox("Trovata"
else
msgbox("Non trovata"
endif

questo codice mi sembra ke cerchi la parola in una miatextbox.
Cerco di spiegarmi meglio:
io voglio ke quando premo un pulsante (command1) in un documento di testo (es. "C:\prova.txt" viene cercata la parola ke io scrivo nella mia textbox, se viene trovata manda un msgbox con scritto "parola trovata" altrimenti Msgbox "parola non trovata".


P.S. Grazie x avermi risposto.

Devi leggere il file riga dopo riga ed usare la instr con ogni riga letta.

Studia e usa le istruzioni

Open ... For Input ...
Line Input #
Close

Lo Sò ke dovrei capire come si fà da solo xò mi potresti dare un'altro aiutino???
Ho capito come far sì ke il mio programma controlli se nel documento "C:\prova.txt" ci sia scritto "ciao" mandando un msgbox e invece se nn c'è scritto ne manda un'altro...
però se nel documento scrivo:

oasosok ciao

oppure

asasda
ciao

non mi manda il msgbox ke manda quando trova ciao nel documento...
Quì ci sn 2 problemi:
1) Devo dire al mio programma di cercare nella prima stringa "ciao"

2) Devo dire al mio programma di cercare poi nelle stringhe seguenti "ciao"

Intanto mi potresti aiutare a capire come risolvere il 1°problema???

Non capisco ... tu hai scritto del codice o no ?

prova questo codice

Public Testo As String

Dim Riga As String
Open percorso For Input As 1
Do While EOF(1) = False
Input #1, Riga
Testo = Testo & Riga & vbCrLf
Loop
Close
If InStr(1, Testo, Text1) > 0 Then MsgBox "trovata"

Questa e' una variante del precedente che puo' risultare piu' efficiente (con file molto lunghi) perche' non effettua la concatenazione continua di una stringa ed interrompe la ricerca appena trova la stringa (e non legge tutto il file prima di cercarla)

    Dim Riga As String
    Open "C:\testo.txt" For Input As 1
    Do While Not EOF(1)
        Line Input #1, Riga
        If InStr(Riga, "parola") Then
            MsgBox "trovata"
            Exit Do
        End If
    Loop
    Close 1