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

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=" amp; a amp; "; B=" amp; b amp; "; C=" amp; c)
'Выводим на экран текст A=. потом число из ячейки а, затем печатаем знаки ; B=, потом число из ячейки b, потом знаки ; C= и число из ячейки с
End Sub  'конец программы