Kullanıcının text1e yazmış olduğu yazılardan istediği kelimeyi bulması için.

option explicit
dim aranan poz as integer

private sub commandBul_click()
ara1
end sub

sub ara (baslangıc as integer)
dim poz as isnteger, aranacak as string
aranacak=textaranacak.text
poz= ınstr(baslangic,textmetin.text,aranacak)
if poz>0 then
arananpoz=poz
textmetin.selstart 'seçime başlarken kullanılır
textmetin.sellength= len (aranacak) 'secim uzunlugudur
textmetin.setfocus ' imleci sabitlemek içindir
else
msgbox ("aranan kelime bulunamadı")
end if
end sub