Vba Set Value To Integer Function