Составьте программу, проверяющую, что введенное число является четным или нечетным. на vba

X = InputBox("Введи число")
If x Mod 2 = 0 Then MsgBox ("Четное") Else MsgBox ("Нечетное")