Excel Vba Function Return Boolean Value 0