Try using something like this:
VB Code:
  1. If InStr(1, Text1.Text,"Save") >0 then 

  2.       'Events to happen here

  3. End if