Invalid procedure call or argument in Function

[Philosophaie]

This error message in line vpp:

Invalid procedure call or argument

Function fn1(ByVal a, ByVal i, ByVal e, ByVal N, ByVal w, ByVal ta)
    Pi = Application.WorksheetFunction.Pi
    mhu = 398600    
    vpp = (mhu / Math.Sqr(mhu * a * (1 - e ^ 2))) * (-Math.Sin(ta * Pi / 180))
    fn1 = 2 * vpp
End Function

 

[Philosophaie]

e before i.

Thanx

 

[Jonmo1]

e before i.

Thanx

Except after C...

Glad to help, thanks for the feedback.