Ciao ,

puoi usare le classi Stream per caricare il file txt in un array di byte e poi fare le tue ricerche.

Tieni, vedi un po' se ti puo' aiutare
Ricordati che i file txt sono una brutta bestia, se non vengono codificati sempre alla stessa maniera puo' succedere che la procedura non funzioni. Esempio tipico
1) Ciao, come stai
2) Ciao,come stai
Nel primo caso puoi fare un bello Split(" ") e ti trovi
1) Ciao,
2) come
3) stai
Nel secondo caso, lo Split(" ") ti restituisce
1) Ciao,come
2) stai
Quindi dovresti prima sostituire la virgola con lo spazio, poi fare lo Split.

Eccoti il codice.
Il testo da ricercare "Oggi" lo sostituirai con il tuo testo proveniente dal form. Il file che ho usato "stream.txt" lo sostituirai con quello/i che usi.

' Apro lo stream
Dim Stream_Dati As New FileStream(Server.MapPath("stream.txt"), FileMode.Open)
' Apro il lettore del file
Dim Lettore As New StreamReader(Stream_Dati)
'Metto il file in una stringa
Dim testo As String = Lettore.ReadToEnd
'Spezzo il file altrimenti non funziona
Dim Singola_parola As Object = testo.Split(" ")
'Definisco il testo da ricercare (nel tuo caso arriva dal form)
Dim testo_da_ricercare As String = "Oggi"
'Cerco il testo
Dim match As Boolean
For Each elemento In Singola_parola
' per controllare se funziona, puoi toglierlo alla fine
MsgBox(elemento.ToString, MsgBoxStyle.Critical)
match = elemento.Contains(testo_da_ricercare)
If match = True Then
MsgBox("TROVATO", MsgBoxStyle.ApplicationModal)
Else
MsgBox("NON TROVATO", MsgBoxStyle.Critical)
End If
Next

Lettore.Close()
Stream_Dati.Close()

Ciao