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