vba dim with initial value - Search