Excel Vba Function Return Multiple Values In R