Помогите С программой на языке 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 SelectEnd Sub