--------------------------------------------------------------------------------
Function Test(Rng As Range) As Variant
Test = Evaluate(Application.Substitute(Rng, ",", "+"))
End Function
--------------------------------------------------------------------------------