Ovviamente devi confrontare ogni parola presente nella TextArea con quella che cerchi.
Poniamo che nella tua TextArea hai queste parole, l'una dopo l'altra: "alibaba simbad abukir sharazade".
Vuoi cercare la parola "abukir"; puoi fare così:
Public Sub Button1_Click()
Dim j As Byte
Dim ss As String[]
' Frammenti l'intera frase, contenuta nella "TextArea",
' distinguendo ciascuna parola dall'altra tenendo conto dello spazio che le separa
' (cioè ogni parola da prendere in considerazione è quel... "gruppo di caratteri"
' presenti nella "TextArea" che arrivano fino allo spazio più prossimo.
' Spazio che sarà escluso: non farà insomma parte della parola).
' Carichi ciascuna parola, così ottenuta distinta dalle altre, negli elementi
' di una variabile array di tipo Stringa:
ss = Split(TextArea1.Text, " ")
' Effettui il confronto di ciascuna parola, presente nell'array, con la parola cercata:
For j = 0 To ss.Max
If ss[j] = "abukir" Then Print "Trovato abukir !"
Next
End
Ovviamente il codice è semplificato dal fatto che ho già inserito la parola da cercare; ma l'ho fatto per motivi esempificativi.