Estoy usando VB6 y necesito hacer un ReDim Preserve a una matriz multidimensional:

 Dim n, m As Integer
    n = 1
    m = 0
    Dim arrCity() As String
    ReDim arrCity(n, m)

    n = n + 1
    m = m + 1
    ReDim Preserve arrCity(n, m)

Cada vez que lo hago como lo he escrito, me sale el siguiente error:

error de tiempo de ejecución 9: subíndice fuera de rango

Debido a que solo puedo cambiar la última dimensión de la matriz, bien, en mi tarea, ¡tengo que cambiar la matriz completa (2 dimensiones en mi ejemplo)!

¿Hay alguna solución u otra solución para esto?