Cmq ci provo...diciamo che nella textbox chiamasi Text1 hai "Antonio"
Per cercare una stringa fai:
'Da quale carattere cominci a cercare nella textbox
'supponendo che valore_da_cercare = "oni"
risultato = Instr(1,Text1.Text,valore_da_cercare)
'tradotto --> risultato = Instr(1,"Antonio","oni")
'ti restituirà la posizione di dove trova la stringa,se ti restituisc 0 non l'hai trovata altrimenti sì!