Vba Set Value To Integer Variable Calculus