Excel Vba Integer Maximum