Even/odd function here

[Oafo]

Private Function IsEven(lNum As Long) As Boolean
    IsEven = Not CBool(lNum& And 1)
End Function

Useful little function in case anyone was wondering on how to determine if a number is even or odd. I must be bored...