how to add all of the values of connected parts?

This is my code, i am trying to add up all of the values into a total amount.

local parts = script.Parent.Parent.Parent:GetConnectedParts()
for i = 1, #parts do
    if parts[i].Name == "Storage" then
        script.Parent.Text = parts[i].Value.Value
    end
end