Проверка числа на чётность

Public Function IsEven(lNumber As Long) As Boolean
'Проверка числа на чётность
'Если четное вернёт True
    IsEven = Not lNumber Mod 2 = 1
End Function

Ещё вариант (потяжелее)

Public Function IsEven(vNumber As Variant) As Boolean
'es 30.08.2018
'Проверка числа на чётность - Если четное вернёт True
Dim n As Integer
'--------------------------------------------------------------------------
On Error GoTo IsEven_Err
    n = CInt(vNumber)
    IsEven = Not n Mod 2 = 1

IsEven_Err:
    IsEven = False
    Err.Clear
End Function