Visual basic! дано целое число n (> 0). используя один цикл, найти сумму 1! + 2! + 3! + … + n!

Sub z()
    n = CInt(InputBox("N?"))
    k = 1
    s = 0

    For i = 1 To n
      k = k * i
      s = s + k
    Next

    MsgBox (s)
End Sub