sub con byVal

[dreaman74]

avendo un codice di questo tipo:

sub subroutine(prodotto)
arrProdotto = split(prodotto, ",")
FOR i = 0 TO UBound(arrProdotto)
response.write ("ARTICOLO: " & arrProdotto(i) & "
")
NEXT
end sub

...
FOR i = 0 TO UBound(array)
call subroutine(array(i))
NEXT
...

Vorrei lasciare il valore di "i" inalterato dolpo la chiamta della procedura.

pensavo di inserire nella chiamata:

sub subroutine(prodotto, byVal i)
call subroutine(array(i), 0)

Vorrei evitare di inserire nella chiamta alla sub il secondo valore superfluo, come posso fare?
grazie