you can not have 2 subs named switch, comment out the original or change name of one you are not using
just replace your existing switch procedure