odd or even number in visual basic