Mencari text di textbox

Pertama tambahkan 1 buah textbox ke form. Lalu masukan kode sbb:

Private Sub Form_Load() teks = "oke" If teks <> "" ThenIf InStr(Text1, teks) <> 0 Then
Text1.SelStart = InStr(Text1, teks) - 1
Text1.SelLength = Len(teks)
Else
MsgBox "Kata yang Anda cari tidak ditemukan"
End If
End If
End Sub

Selamat mencoba