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

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

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