Написать программу в 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