Даны радиус круга и сторона квадрата. У какой фигуры площадь больше?

Два раза вызывать окно InputBox

Расположите этот макрос в проекте на любой лист и вызовите его

Sub aaa()
    Pi = 4 * Atn(1)
    r = CDbl(InputBox("Радиус круга"))
    a = CDbl(InputBox("Сторона квадрата"))
    s1 = Pi * r ^ 2
    s2 = a ^ 2
    MsgBox IIf(s1 gt; s2, "Площадь круга больше", IIf(s1 lt; s2, "Площадь квадрата больше", "Площади одинаковы"))
End Sub