l'unica cosa che hotrovato da cui partire è questa:
---------------------------------------------------------
Private Sub Testo14_Click()

Dim linea As String
Dim linea2 As String
Open ("C:Log1.txt") For Input As #1
Do
Input #1, linea
linea2 = linea2 & linea
Loop Until EOF(1) = True
If InStr(linea2, "testochecerco") Then
MsgBox "la stringa ciao è presente nel file txt"
Else
MsgBox "La stringa non è presente"
End If
End Sub
--------------------------------------------------------

ma già parto malissimo xkè non funziona

poi io ho provato col MSBOX x vedere se andava mai n realtà a me la funzione "InStr" serve solo per sapere da quale punto del file txt partire per fare la ricerca, e da quel punto restituirmi la parola successiva