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