[Ahmed_Mansoor]

أهلا أخي الكريم , قم بإدراج زر جديد للبحث ثم إنسخ هذا الكود وألصقة بداخل حدث الـClick للزر :

كود :

Dim zSearch As String
Dim I As Long

zSearch = InputBox("أكتب نص البحث", "البحث")

If Trim$(zSearch) = "" Then Exit Sub

I = InStr(1, Text1.Text, Trim$(zSearch))

If I > 0 Then
  
   Text1.SelStart = I - 1
   Text1.SelLength = Len(Trim$(zSearch))
   Text1.SetFocus

End If