Find whether given number is a odd number

Dim n
n=inputbox ("Enter a number")
if n mod 2 = 0 then
 msgbox "The number: " & n & " is not odd"
else
 msgbox "The number: " & n & " is odd"
end if