VBA Code to sort in ascending AND descending order

Hey guys,

I want to make a ActiveX button with VBA code that does a sort on the second click.
For example, on the first click it sorts the data in ascending order; on the second click, it sorts it in descending order and so on.
Here is my existing code below for one of the columns I have a button for (right now, it obviously only does it in ascending order).

Please Login or Register  to view this content.

How would I modify this to get it to sort ascending AND descending?

Thank you,