CodeItBetter Programming Another VB Programming Blog

'Math - How to determine if a number is even or odd (True for Odd; False for Even) (in three ways)
'Method 1:

Public Function IsEven(ByVal I As Long) As Boolean
   IsEven = Not -(i And 1)
End Function
 
'Method 2:

Public Function IsOdd(ByVal I As Long) As Boolean
   IsOdd = -(i And 1)
End Function
 
'Method 3:

Public Function IsOdd(ByVal lngNumber As Long) As Boolean
    IsOdd = (lngNumber Mod 2) <> 0
End Function