Excel Vba Function Return Integer