Прлверить , является ли трехзначное число нечетным в программе бейсик

Dim n As Integer
n = InputBox("Введите число")
If n And 1 Then
MsgBox ("Число нечетное")
Else
MsgBox ("Число четное")
End If