Solved: if odd even numbers

[pal950]

Public Function IsEven(ByVal Number As Long) As Boolean
    IsEven = (Number Mod 2 = 0)
End Function

Public Sub findEvenOdd()
Dim x As Integer
x = InputBox("Please enter the number")
If IsEven(x) Then
MsgBox "The Number is the Even Number"
Else
MsgBox "The Number is the Odd Number"
End If
End Sub