Passing a variable between modules in VBA

I've attached a sample workbook here.

As you will see, when you run Module1, even when passing between the two subs, the variables are kept. When it switches to another module, however, the variables are lost.

Any help would be greatly appreciated!

Thanks again

Mike