deframmentare un array

[Maxx_ale]

Ho la necessità di eliminare tutte le celle vuote da un array lineare e per far questo ho preparato una funzione che in teoria dovrebbe funzionare:

Function deframmenta_array(DA_array)
	dim DA_i
	dim DA_j
	dim DA_temp_array(0)
	
	DA_j = 0
	If isarray(DA_array) then
		For DA_i = 0 to Ubound(DA_array)
			If DA_array(DA_i) <> "" Then
				Redim Preserve DA_temp_array(DA_j)
				DA_temp_array(DA_j) = DA_array(DA_i)
				DA_j = DA_j + 1
			End If
		Next
	end if
	
	deframmenta_array = DA_temp_array
End function

prende un array inviato come argomento e lo scorre campo per campo, e quando trova un valore diverso da "" lo inserisce nell'array temporaneo; alla fine l'array temporaneo viene assegnato come valore alla funzione

solo che quando tento di ridimensionare l'array per allungarlo mi dice che il DA_temp_array è fisso e non può essere modificato...

che si fa?