out of range

VBA(Word)
Объясните, пожалуйста, почему первый код работает, а второй - выдает ошибку "out of range"

код №1(текстовое поле установлено "вручную")

Dim MyArray() As String
Dim n As Byte
______________________________
Private Sub Document_Open()
ReDim MyArray(10)
End Sub
______________________________
Private Sub txtField_Change()
n = 0
MyArray(n) = "No problem"
End Sub

код №2(тесктовое поле установлено с помощью кода)

Dim MyArray() As String
Dim MyObject As Object
Dim n As Byte
______________________________
Private Sub Document_Open()
ReDim MyArray(10)
Set MyObject = ActiveDocument.InlineShapes.AddOLEControl("Forms.TextBox.1")
MyObject.OLEFormat.Object.Name = "txtField"
End Sub
______________________________
Private Sub txtField_Change()
n = 0
MyArray(n) = "Out of range"
End Sub