Originariamente inviato da ethan_h76
ora va meglio, ma non mi evidenzia il primo carattere (es. cerco ciao, mi evidenzia iao)
GRAZIE
Non avevo testato...

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 - 1
    text1.sellenght = len(parola)
end if