Vba Set Value To Integer Variable Length