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