When working with an integer or long, you can use the MOD operator to determine if that number is Odd or Even. Wow.

Private Function IsEven(ByVal numberA As Long) As Boolean
    IsEven = (numberA Mod 2 = 0)
End Function