Public Function IsEven(I As Integer) As Boolean

Even = (I Mod 2) - 1
If Even = 0 Then
    IsEven = False
Else
    IsEven = True
End If

End Function
Sub Test()
Dim I As Integer
Dim Even As Boolean

I = 1
'I = 2

Even = IsEven(I)
If Even = True Then
    MsgBox "Even"
ElseIf Even = False Then
    MsgBox "Odd"
End If

End Sub