[Resolvido]Buscar e deletar

Estou tentando adaptar uma rotina para buscar texto em campo memo, disponibilizado pelo Criquio... (chama-se Busca combo),,,
Mas não estou conseguindo inserir na função um evento para deletar o texto que a busca encontra...

Segue código:
Dim strSearch As String, intWhere As Integer
Dim ctlTextToSearch As control
' Get search string from user.
With Me!mmrBusca
strSearch = Me.txtBusca
' Find string in text.
intWhere = InStr(.Value, strSearch)
If intWhere Then
' If found.
.SetFocus
.SelStart = intWhere - 1
.SelLength = Len(strSearch)
Else
' Notify user.
MsgBox "String not found."
End If
End With

Gostaria de efetuar a busca normalmente, e depois do texto selecionado, fosse deletado automaticamente... como parte da rotina...
Agradeço toda ajuda!

Olá

Veja se é isso que deseja:

Coloque o código abaixo no evento ao clicar de um botão.
=========================

Dim ctlTextToSearch As control
Dim obj As Object
Set obj = CreateObject("wscript.shell")

' Get search string from user.
With Me!mmrBusca
strSearch = Me.txtBusca
' Find string in text.
intWhere = InStr(.Value, strSearch)
If intWhere Then
' If found.
.SetFocus
.SelStart = intWhere - 1
.SelLength = Len(strSearch)
obj.SendKeys "{DEL}", True
Else
' Notify user.
MsgBox "String not found."
End If
End With

End Sub
======================
Se usa o Access 3000 pode colocar o sendkeys diretamente.
Abraços

E então


Funcionou a dica??

Cara, ficou ótimo...

Era justamente o que queria...

Desculpe não ter respondido logo... mas estava testando aqui...

Assim que tiver terminado os testes, posto um exemplo pra ajudar os demais colegas...

E ponho o [Resolvido]...

Agradeço muito a ajuda!!!

Boa noite colega Rodrigo, tudo tranquilo.
Se esta resolvido então famoso botão "resolvido"
Exemplos são postados no "repositório de exemplos" o qual (seu exemplo) será encontrado provavelmente pelo também famoso "busca".
Abração colega.
O forum agradece :