bom colega não sei em que você estará utilizando esta função mas eis uma forma legal
inclua em seu form 02 textbox
nomeie-os para txttexto e txtprocura
e um command button com o nome de cmd procura
e cole este código
Dim parounochar As Integer
Private Sub cmdProcura_Click()
Dim TamanhoDaPalavra As Integer 'retorna o tamanho da palavra a localizar
TamanhoDaPalavra = Len(txtprocura.Text)
For a = parounochar To Len(txttexto.Text) ' retorna o tamanho do texto
If UCase(Mid$(txttexto.Text, a, TamanhoDaPalavra)) = UCase(txtprocura) Then
parounochar = a + 1
txttexto.SetFocus
txttexto.SelStart = a - 1
txttexto.SelLength = TamanhoDaPalavra
Exit Sub
End If
Next
MsgBox "Não foi encontrada nenhuma palavra!"
parounochar = 1
End Sub
Private Sub Form_Load()
parounochar = 1
End Sub
Bom como fuciona este código no primeiro text você escreve uma frase
e no segundo você digita o que deseja encontrar se houver esta palavra no text um somete a palavra será selecionada.
veja se isto ajuda
