Условный оператор - VB

Формулировка задачи:

даны координаты двух различных полей шахматной доски х1 у1 х2 у2(целые числа лежащие в диапазоне1-8)учитывая что левое нижнее поле доски(1,1)является черным напечатать сообщение о совпадении или несовпадении цвета заданных полей. например если(х1,у1)=(3,6),(х2,у2)=5,5,то будет напечатано сообщение ЦВЕТ ЗАДАННЫХ ПОЛЕЙ НЕ СОВПАДАЕТ.если же (х1,у1)=(3,6),(х2,у2)=(6,1) то будет напечатано сообщение ЦВЕТ ЗАДАННЫХ ПОЛЕЙ СОВПАДАЕТ указание-для вывода на экран требуемого сообщения воспользуйтесь окном сообщений MsgBox Помогите пожалуйста))))))заранее спасибо огромное)

Решение задачи: «Условный оператор»

textual
                            Листинг программы 
                        

                            if ((x1+y1) mod 2) = ((x2+y2) mod 2) then msg="" else msg="НЕ "
'четность суммы координат совпадает - цвет совпадает
msgbox "ЦВЕТ ЗАДАННЫХ ПОЛЕЙ " & msg & "СОВПАДАЕТ"
                        