redimensionar array multidimensional

[mkgreidi]

Tengo creado el siguiente array multidimensional que quiero ir redimensionando segun el resultado de una consulta

Dim fechas(2, 1)
For j = 0 To i - 1
If inicio = final Then
fechas(0, a) = inicio
fechas(1, a) = titulo
a = a + 1
ReDim Preserve fechas(2, a)
Else
Do While inicio <= final
fechas(0, a) = inicio
fechas(1, a) = titulo
a = a + 1
ReDim Preserve fechas(2, a)
inicio = DateAdd("d", 1, inicio)
Loop
End If
Next
Pero me salen el triple de filas de lo normal,en cambio si dejo el array con una dimension solo el mismo codigo funciona correctamente.
Que es lo que esta mal?Quiero que aumente el numero de filas pero que siempre sean 2 columnas