Написать программу в vba, сравнивающую два числа, вводимые с клавиатуры.

Sub car()
    Dim s1, s2 As Double
    s1 = CDbl(InputBox("Введи первое число", "Ввод данных", 88))
    s2 = CDbl(InputBox("Введи второе число", "Ввод данных", 46))
    If s1 > s2 Then MsgBox (CStr(s1) + ">" + CStr(s2)) Else MsgBox (CStr(s1) + "<" + CStr(s2))
End Sub