Problema ridimensionameto array 2D

[abellos]

Ciao a tutti,
ho un certo numero di dati variabile che incollo dentro una textarea per poi caricarli su un db dopo alcune operazioni di verifica.
Dati:

1013748	ente 73348	1	26/02/2016
1013749	ente 73348	2	26/02/2016
1013750	ente 73348	3	26/02/2016
1013751	ente 73348	4	04/03/2016
1013752	ente 73348	5	04/03/2016
1013753	ente 73348	6	04/03/2016
1013754	ente 73348	7	04/03/2016
1013755	ente 73348	8	04/03/2016

Per averli disponibili ho pensato di riempire una matrice e ridimensionarla alla fine del ciclo

dati = request("dati")	dim matrice(3,1000)
		
	'controllo che ci sia il numero di campi corretto e carico i dati in una matrice
	tmpRiga = split(dati,vbcrlf)
	
	for i=0 to ubound(tmpRiga)
		if tmpRiga(i)<>"" then
			'response.write tmpRiga(i) & "<br>"
			tmpValori = split(tmpRiga(i),vbTab)
			
			if ubound(tmpValori)<3 then
				esitoOP "Attenzione manca una colonna, devono essere 4","indietro" 'funzione che crea una pagina html
			else
				'response.write tmpValori(3) & "-<br>"				
				matrice(0,i)=tmpValori(0) 'scatola
				matrice(1,i)=tmpValori(1) 'dettaglio
				matrice(2,i)=tmpValori(2) 'rif cliente
				matrice(3,i)=tmpValori(3) 'data inserimento
			end if
		end if
	next
	
	'response.write i
	
	
	ReDim preserve matrice(3,i)
	
	'response.end
	
	for k=0 to ubound(matrice,2)
		'if matrice(k,0)="" then
		'	exit for
		'end if
		response.write k & "<br>"
		response.write matrice(0,k) & "<br>"
		response.write matrice(1,k) & "<br>"
		'response.write matrice(2,k) & "<br>"
		response.write matrice(3,k) & "<br>"
	next

ma sul ridimensionamento mi esce l'errore:

Questa matrice è fissa o temporaneamente bloccata: 'matrice'

so che si puo' cambiare soltanto l'ultimo indice e infatti li ho invertiti, ma non funziona ugualmente, potete darmi una mano? grazie

[abellos]

Ho capito il problema!!!!
quando dichiaro la matrice devo usare reDim e non dim

reDim matrice(3,1000)