Recordemos que el uso de la sentencia if en visual basic se trabaja de la siguiente manera :
if (comparacion) then
resultado
else
resultado
end if
para obtener la parte decimal de un numero en codigo visual basic usamos el siguiente codigo :
nMod 2 = 0
Donde n puede ser cualquier numero a verificar
para que el resultado se muestre en una ventana emergente o adicional se utiliza el siguiente codigo :
MsgBOX( " El numero es par " )