Bir metin içinde aradığınız bir kelimeyi bulmaya ve o kelimeyi işaretlemeye yarayan örnek bir kod: 'Forma Bul adında bir buton ve Metin adında bir textbox yerleştirin Option Explicit Dim ArananKelime As String Dim KelimeninYeri, AramayaBasla As Integer Private Sub Bul_Click ArananKelime = InputBox '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 Then AramayaBasla = 1 'Eğer işaretçi sonda veya başta ise aramayı bütün metin içerisinde yapacağız.. KelimeninYeri = InStr '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 Metin. SetFocus Metin. SelStart = KelimeninYeri - 1 Metin. SelLength = Len 'Aranan kelimeyi seçtireceğiz.. End If End Sub Bu kadar işinize yarar inşallah..