vba dim as integer - Search