Ввести целые числа в переменные А, Б, С. Нечетные значения уменьшить на единицу

Sub Z () 'начало программы с именем Z

Dim a As Integer 'создаем ячейку с именем а для целых чисел

Dim b As Integer 'создаем ячейку с именем b для целых чисел

Dim c As Integer 'создаем ячейку с именем c для целых чисел

a = InputBox ("Введите A: ")

'Просим пользователя ввести какое-нибудь число. Записываем его в ячейку а

If a Mod 2 = 1 Then a = a - 1

'Если остаток от деления на 2 равен 1, то число а уменьшаем на единицу

b = InputBox ("Введите B: ")

'Просим пользователя ввести какое-нибудь число. Записываем его в ячейку b

If b Mod 2 = 1 Then b = b - 1

'Если остаток от деления на 2 равен 1, то число b уменьшаем на единицу

c = InputBox ("Введите C: ")

'Просим пользователя ввести какое-нибудь число. Записываем его в ячейку c

If c Mod 2 = 1 Then c = c - 1

'Если остаток от деления на 2 равен 1, то число c уменьшаем на единицу

MsgBox ("A=" & a & "; B=" & b & "; C=" & c)

'Выводим на экран текст A=. затем число из ячейки а, затем печатаем знаки; B=, потом число из ячейки b, затем знаки; C = и число из ячейки с

End Sub 'конец программы