Macro to Copy Date in Active Cell and Re-Paste into Same Cell as Text?

I don't know much about VBA, but I'd like to create a keyboard shortcut macro to convert a selected date into text. However, I need to use the =TEXT(date, "mm-ddd-yy") formula instead of just re-formatting as text. For some reason, excel displays these differently.

An example of what I'd like to do:

Say the selected cell contains the date 1/9/13. I'd like to have the macro copy this date, run the formula =Text(date, "mm-ddd-yy"), then paste the result 09-Jan-13 back into the same selected cell.

I'd appreciate any ideas you have. Thanks.