Выполнить в excel. даны натуральное число n и действительное число x. вычислить: s = cosx+coscosx++.

Sub aaa()
    n = CInt(InputBox("n="))
    x = CDbl(InputBox("x="))
    sx = Cos(x)
    s = sx
    For i = 2 To n
        sx = Cos(sx)
        s = s + sx
    Next i
    MsgBox s
End Sub