codice:
Dim Parola as String
Parola = InputBox("Inserire la parola di ricerca:")
If Parola = "" Then exit sub
dim pos as integer
pos = instr(text1,parola,1)
if pos then
    text1.setfocus
    text1.selstart = pos
    text1.sellenght = len(parola)
end if