Visual Basic 6 Metin İçerisinde Kelime Arattırma

ArananKelime = InputBox("Metin içinde aradığınız kelimeyi giriniz:", bul, ArananKelime)

 'Aranacak kelimeyi soruyoruz..

 AramayaBasla = metin.SelStart + metin.SelLength

 'Aramayı metin içersinde işaretçinin bulunduğu karakterden başlatacağız..

 If AramayaBasla = 0 Or AramayaBasla = Len(Text1.Text) Then AramayaBasla = 1

 'Eğer işaretçi sonda veya başta ise aramayı bütün metin içerisinde yapacağız..

 KelimeninYeri = InStr(AramayaBasla, Text1.Text, ArananKelime, vbTextCompare)

 'instr ile kelimenin metin içerisinde başladığı yeri alacağız..

 If KelimeninYeri = 0 Then

 MsgBox "Metin içinde böyle bir kelime yok"

 Else

 Text1.SetFocus

Text1.SelStart = KelimeninYeri - 1

Text1.SelLength = Len(ArananKelime)

 'Aranan kelimeyi seçtireceğiz..

 End If