Solved: if odd even numbers

[pal950]

Sub Button2_click()
Dim x As Integer
Dim y As Integer
x = InputBox("Please enter the Number")
If x Mod 2 Then
MsgBox "The Number is the Odd Number"
Else
MsgBox "The Number is the Even Number"
End If
End Sub