Произведение в цикле For...Next - VB

Формулировка задачи:

Народ, требуется помощь в решении нижеуказанной задачки:... Написал что-то такое, но не знаю правильно это или нет:

Private Sub cmdStartFor_Click()
    Dim a, x, S As Single
    Dim i, n As Integer
    a = Worksheets(1).Cells(18, 2).Value
    x = Worksheets(1).Cells(19, 2).Value
    S = 0
    n = InputBox("Введите число итераций N", "Ввод ", 5)
    Worksheets(1).Cells(20, 2).Value = n
    For i = 1 To n
        S = (n ^ i) * Math.Sin(a + x + i)
    Next i
    MsgBox ("S= " & S)
    Worksheets(1).Cells(21, 2).Value = S
End Sub

Решение задачи: «Произведение в цикле For...Next»

textual
                            Листинг программы 
                        

                            S = 1
.
.
.
S =S* (n ^ i) * Math.Sin(a + x + i)
                        