ReDim Preserve для многомерного массива в Visual Basic 6

используя VB6 и мне нужно сделать ReDim Preserve для многомерного массива:

 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)

Всякий раз, когда я делаю это так, как написал, я получаю следующую ошибку:

ошибка времени выполнения 9: индекс находится вне диапазона

Поскольку я могу изменить только последнее измерение массива, в моей задаче мне нужно изменить весь массив (в моем примере 2 измерения)!

Есть ли обходной путь или другое решение для этого?

Ответы на вопрос(8)

Ваш ответ на вопрос