VBA. По заданным значениям a, x и n найти сумму ряда.

Sub aaa()    n = CInt(InputBox("Введите n"))    Dim s As Double    s = 0    For i = 1 To n        s = s + Cos(i + 1) / (2 * i - 1)    Next i    MsgBox sEnd Sub