Bir metin içinde aradığınız bir kelimeyi bulmaya ve o kelimeyi işaretlemeye yarayan örnek bir kodlar:

’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("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