Private Sub Command1_Click() dim x ara=inputbox("Ara", "Bul", richtextbox1.seltext) x=richtextbox1.find("bul",richtextbox1.selstart) if x<0 then msgbox x & "Aranan Kelime Bulunamadı" end if end sub