[vba]

If myVar Mod 2 = 1 Then

MsgBox "odd"
Else

MsgBox "even"
End If
[/vba]