Somar valores de um array

Tenho um array da seguinte forma

<%
Qtd_Produto = split(request.Form("Qtd_Produto"),",")
Cod_Produto = split(request.Form("Cod_produto"),",")
St_Pedido = 1

Conta = ubound(Qtd_Produto)

'verifica se pelo menos uma linha tem registro a ser inserido
For f = 0 to conta
If trim(Cod_Produto(f)) <> "" and not isnull(Cod_Produto(f)) and trim(Qtd_Produto(f))<> "" and not isnull(Qtd_Produto(f)) then
If cdbl(Qtd_Produto(f)) > 0 then

InsereRegistro = "sim"

End if
End if
Next
%>

Tenho 2 campos em um formulario um com a Quantidade de de produto (Qtd_Produto) e outra com o Codigo do produto(Cod_Produto)

oque eu gostaria de fazer é,

Se os codigos dos produtos forem iguais somar as quantidades e gravar no banco como um codigo só