Ввести с клавиатуры 2 разных целых числа. Найти меньшее из них. Результат вывести на...

Sub aaa()
    a = CDbl(InputBox("первое число"))
    b = CDbl(InputBox("второе число"))
    MsgBox "минимум двух чисел " + CStr(IIf(a > b, b, a))
End Sub

Ввести с клавиатуры 2 разных целых числа. Найти меньшее из них. Результат вывести **...