l oop используется только для того, что стоит за знаком суммы Σ
, а N - Σ
должно быть вычислено после l oop. Также необходимо правильно разместить перентез:
Public Function H(ByVal N As Long, ByVal P As Double) As Double
'Calculate the sum Σ
Dim S As Double 'result of the sum Σ
Dim i As Long
For i = 1 To (N - 1)
S = S + ((i / N) ^ P)
Next
'Then calculate the rest
H = N - S
End Function