Vba Function Return Integer