如何从VBA中的数组中调出值

Question

有人可以帮我理解为什么在立即屏幕上打印时为数组赋值后为什么数组中的值为空吗？

Dim p, q As Integer
Dim MyArray3() As Variant
ReDim MyArray3(1 To 10000, 1 To 1)


p = 1
Do While Range("C" & p).Value < 2.05

   Debug.Print Range("C" & p).Value, p, myArray(5)
    MyArray3(p, 1) = Range("C" & p).Value
    q = q + 1
    p = p + 1
    Debug.Print MyArray3(p, 1)
Loop