Решить в vba
дано натуральное число n вычислить 1*2+2*3*4++n(n+1)**2n

Sub abcd()

   n = CInt(InputBox("Введите натуральное n"))

   s = 0#

   For i = 1 To n

       p = 1#

       For j = i To 2 * i

           p = p * j

       Next j

       s = s + p

   Next i

   MsgBox s

End Sub