escape macro

i am trying to make a macro that emulates ESC key .

I saved the following code

Sub main()

SendKeys "{ESC}"

End Sub

to a .swp file using notepad .  I then tried create the macro with "new macro" button on macro toolbar .  But when browsing for a macro , my swp file is not accepted.  

thanks for any help

SolidworksUser Interface