Aggiungere elementi ad array

[arl.ste]

Ciao,
ho questa funzione:

Public Sub AggiungiElemento(NomeElemento, ValoreElemento, ArrayElementiTemplate)
		If InStr(NomeElemento, "[@]") = 0 And InStr(ValoreElemento, "[@]") = 0 Then
			If IsEmpty(ArrayElementiTemplate) Then
				NumeroElementi = ArrayElementiTemplate + 1
				
				ReDim ArrayElementiTemplate(NumeroElementi)
			Else
				NumeroElementi = Ubound(ArrayElementiTemplate) + 1
				
				ReDim Preserve ArrayElementiTemplate(NumeroElementi)
			End If
			
			ArrayElementiTemplate(NumeroElementi) = ValoreElemento
		Else
			If IsEmpty(ArrayElementiTemplate) Then
				k = ArrayElementiTemplate + 1
				ArrayValoreElemento = Split(ValoreElemento, "[@]")
				NumeroElementi = ArrayElementiTemplate + Ubound(ArrayValoreElemento) + 1
				
				ReDim ArrayElementiTemplate(NumeroElementi)
				
				For Each Contatore In ArrayValoreElemento
					ArrayElementiTemplate(k) = Contatore
					k = k + 1
				Next
			Else
				k = Ubound(ArrayElementiTemplate) + 1
				ArrayValoreElemento = Split(ValoreElemento, "[@]")
				NumeroElementi = Ubound(ArrayElementiTemplate) + Ubound(ArrayValoreElemento) + 1
				
				ReDim ArrayElementiTemplate(NumeroElementi)
				
				For Each Contatore In ArrayValoreElemento
					ArrayElementiTemplate(k) = Contatore
					k = k + 1
				Next
			End If
		End If
	End Sub

e la richiamo con

Call MotoreGrafico.AggiungiElemento("header", "pippo2", ArrayElementiTemplate)
Call MotoreGrafico.AggiungiElemento("header", "pippo [@] basettoni", ArrayElementiTemplate)

For Conta = 0 To Ubound(ArrayElementiTemplate)
	Response.Write(ArrayElementiTemplate(Conta))
Next

ma perchè mi visualizza due volte i parametri aggiunti? ecco l'input del for each con i parametri sopra postati:

pippo2pippo basettonipippo basettoni

Grazie