Excel Vba Function Return Two Values Function