Как вызвать значение из массива в 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