Macro1.bas: Changed r to a. Removed Math. from Cos and Sin.