Написать код по блок-схеме - VB (59461)

Private Sub Command1_Click()
    Dim S As Double, e As Double
    Dim x As Double, y As Double
    Dim n As Long
    x = InputBox("x =", "", 32)
    e = InputBox("e =", "", 0.000001)
    S = 0
    n = 0
    y = x
    Do While Abs(y) > e
       S = S + y
       n = n + 1
       y = y * (-((x ^ 4) / ((2 * n - 1) * (2 * n) * (4 * n - 2) * (4 * n - 1) * (4 * n) * (4 * n + 1))))
    Loop
    MsgBox "S = " & S & vbCrLf & "n = " & n
End Sub