Math
Old or Even
Public Function IsEven(ByVal number As Long) As Boolean
If (number And 1) = 0 Then Return True Else Return False End If
End Function