Пожалуйста посчитайте С программой на языке Visual Basic For Application:Из двух введенных чисел определить наименьшее. Известно, что числа не равны между собой.

Sub aaa()
    a = CDbl(InputBox("Первое число"))
    b = CDbl(InputBox("Второе число"))
    Select Case a - b
    Case Is < 0
        MsgBox "Первое число меньше"
    Case Is > 0
        MsgBox "Второе число меньше"
    End Select
End Sub