Составьте программу, проверяющую, что введенное число является четным или нечетнымНа языке VBA

Предыдущий
вопрос Следующий
вопрос

Sub CheckEvenOddNumber()
Dim num As Integer
' Просим пользователя ввести число
num = InputBox("Введите число:")
' Проверяем число на четность
If num Mod 2 = 0 Then
MsgBox num & " - четное число."
Else
MsgBox num & " - нечетное число."
End If
End Sub