Visual Basic - # pares e impares sin usar MOD

POr favor necesito saber como averiguar los numeros pares e impares sin usar la funcion MOD NI la division

do while Numero>0
Numero=Numero-2
loop
if Numero=0 then
\'es par
else
\'es impar
end if

Al inicio solo capturas el valor de Numero...este se le resta 2 cuantas veces sea necesario hasta llegar a 0 ó -1...si es 0 el número es par y si no pues lógicamente impar... No es lo más óptimo... pero funciona..jeje

oye, la respuesta anterior es correcta pero para valores grandes se hace lento, claro no es significativo pero si quieres puedes probar este codigo:

X=mid(numero,len(numero)-1,1)
'La instrucción anterior toma el último digito de la cadena de numero que debe contener el número a evaluar
'Luego si termina en 0,2,4,6,8 es un numero par
if x="0" or x="2" or x="4" or x="6" or x="8" then
msgbox "El Número es par"
else
msgbox "El número es impar"
end if

espero te sirva, hasta luego............