Liberar memoria vaciando un matriz

[lenz]

Tengo una matriz Dim MatrizG(50,5000,50) la cual no se que valores va a tomar, ya que los indices los tomo desde una base de datos, por lo que le pongo valores muy altos para eviar un error, de esta forma funciona pero me genera un gasto muy grande de memoria y no se como al finalizar de usarla puedo liberarla.

[Myakire]

Inicializala con valores mínimos y luego crécela con redim preserve según vayas ocupando.

saludos

[lenz]

De todos modos quisiera saber com ovaciar al final los datos de la matriz.

Intente hacerlo con redim

dim MatrizT (1,1,1)
cont = 1
Do Until rt.eof
user = rt(3)
strclave = rt(2)
Accesos = rt(1)
Tiempo = rt(0)
contM = cont*3
cont=cont+1
ReDim Preserve MatrizT (contM,cint(user),cint(strclave))
MatrizT (0,cint(user),cint(strclave))=1
MatrizT (1,cint(user),cint(strclave))=Tiempo
MatrizT (2,cint(user),cint(strclave))=Accesos
rt.MoveNext
loop

El ERROR
El subíndice está fuera del intervalo