Visual Basic - Matrices bidimensionales

Hola a todos,

No se lo que estoy haciendo mal!!

Declaro una matriz bidimensional
Dim Matriz() As String

Y después la voy redimensionando

For j = 0 To oCombinacion.Registros
If Error = False Then
ReDim Preserve Matriz(0 To k, 0 To 4)
Matriz(k, 0) = oFichero.Dat(ofCod_Contable_Empresa, i)
Matriz(k, 1) = oFichero.Dat(ofCod_Contable_Deleg, i)
Matriz(k, 2) = oFichero.Dat(ofCod_Contable_Activ, i)
Matriz(k, 3) = oFichero.Dat(ofCod_Contable_Unidad_Neg, i)
Matriz(k, 4) = oFichero.Dat(ofCod_Contable_Camp, i)
k = k + 1
End If
next j

*** El Primer elemento lo hace correctamente pero el segundo no!!
Porq puede ser??

Gracias.

El ReDim solo cambia la última dimensión por lo que sería:

ReDim Preserve Matriz(0 To 4,0 To k)


En: http://msdn.microsoft.com/library/en-us/vbenlr98/html/vastmReDim.asp lo tienes especificado: