ReDim сбросить значение?

Question

У меня проблема с этим следующим кодом:

Dim Numbers() As Integer
Dim InputNumber As Integer
Dim Tmp_1, Tmp_2 As Integer

Dim Moyenne As Single
Dim Max As Integer
Dim Min As Integer

Sub ITERATIVE_2()
    Tmp_1 = 0
    Tmp_2 = 0

    Do
        InputNumber = InputBox("Série " & Tmp_1 & ". Entrez votre nombre. Pour stopper, entrez 0.")
        If (InputNumber = 0) Then
            MsgBox ("+1")
            Tmp_1 = Tmp_1 + 1
            Tmp_2 = 0
        Else
            ReDim Numbers(Tmp_1, Tmp_2)
            Numbers(Tmp_1, Tmp_2) = InputNumber
            MsgBox ("Numbers(" & Tmp_1 & ", " & Tmp_2 & ") = " & InputNumber)
            Tmp_2 = Tmp_2 + 1
        End If
    Loop Until InputNumber = -1

    MsgBox (Numbers(0, 2))
End Sub

Этот код содержит 2 MsgBox. Первый выводит все числа, которые я добавляю в Numbers. Второй вывод имеет неправильный вывод, потому что результат всегда равен «0».

Как вы можете это объяснить? И как я могу это исправить? Спасибо.