Function to determine if a number is even or odd (True for Odd; False for Even): Return to List

  Public Function IsOdd(ByVal lngNumber as Long) as Boolean
  
    IsOdd = Not ((lngNumber Mod 2) = 0)   
  
End Function 
  
 -- or --
  
Public Function IsEven(ByVal lngNumber As Long) As Boolean
  
    IsEven = ((lngNumber Mod 2) = 0)
  
End Function