Split string and apply function on string parts

Hello,

I have the follwing pattern of strings:

A1: 14+58+58.6+98
A2: 85+98+14+56.3
A3: 11.3+115+ ....

I need to split the string and apply the follwing formula on each part:

=(STRINGPART^2)/(4*PI())

and return the sum of all string parts formulas.


I already did it using VBA:

Function BASALSUM(PAP)
Dim basal As Double
For Each Item In Split(PAP, "+")
basal = basal + ((Item ^ 2) / (4 * WorksheetFunction.Pi))
Next

BASALSUM = basal / 10000

End Function



Can I do the same using excel default formulas?


Thanks