Vba Set Value To Integer Variable