Excel Vba Function Return Two Values From Function