I was able to solve this with some help:

Function EvaluS(S())
Dim i As Long
For i = LBound(S) To UBound(S)
EvaluS = EvaluS + Evaluate(S(i))
Next i
End Function