potresti utilizzare matrici di controlli.
Es Text(0)~Text(9) "10 caselle di testo"

Questa è la ricerca:



strRicerca = InputBox("Testo da cercare")

e poi agire sulla matrice

for i = 0 to Text1.Count -1
If InStr(Text1(i),strRicerca)>0 then
msgbox "stringa trovata su text1(" & i & ")"
else
msgbox "stringa non trovatanext i
end if
next i

Non l'ho provato. Vedi tu.
Ciao.