Excel VBA 2003: subroutine to reorder conditional formatting rules
 

I want to write a subroutine that will change the order of a cell's
conditional formats so that rule 3 become rule 1, and riles 2 and 2 get
pushed down.

How do I code it?