pi monte carlo in VBA; bit painful