Даны целые числа a и b.написать программу ,которая выводит число 1,если числа равны ,и число 0 в противном случае

Dim a As Integer       
Dim b As Integer       
a = InputBox("Введите а")       
b = InputBox("Введите b")       

If a = b Then MsgBox("1") Else MsgBox("0")