V binárnom vyjadrení čísla končí každé párne číslo nulou, preto je možné použiť nasledujúci postup:

'ak je číslo párne funkcia vracia hodnotu True
Function JeParne(n As Long) As Boolean
    JeParne = (n And 1) = 0
    'pri testovaní na nepárne číslo stačí = 0 zmeniť na = 1
End Function