Auto move search results to folder


Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server

I am trying to make outlook search for specific key words in .txt attachments then move the emails with those attachments to a folder.
The only way I was able to get some results is by using SendKeys. Code works up to he third line but when I add the last 2 lines and run I only get the results without them being selected or highlighted. I would appreciate any help with this.

Sub find()
SendKeys "^{e}"
SendKeys "{TAB}{TAB}"
SendKeys "No record found to retrieve data"
SendKeys "{TAB}{TAB}{TAB}"
SendKeys "^{a}"
End Sub