Почему мой ListItem не позволяет мне добавлять данные в дополнительные столбцы?

Question

По какой-то причине приведенный ниже код начал ломаться при попытке добавить данные в столбец .List (0, 1). Я понятия не имею, почему мне больше не разрешают добавлять более одного столбца данных в мой ListItem, поскольку команда .AddItem дает мне 10 столбцов для работы, и я уже установил для своих столбцов 10. Есть ли какая-то строка, которую я пропускаю, которая мешает мне добавлять данные после позиции .List (0, 0)?

Private Sub ListBox3_Click()

Me.InfoBox.Clear
Me.InfoBox.ColumnCount = 10
Me.InfoBox.ColumnWidths = "20;20;20;20;20;20;20;20;20;20"
Me.InfoBox.Font.Size = 10
Me.InfoBox.Font.Bold = False
Me.InfoBox.ListIndex = -1

With Me.InfoBox
    .AddItem
    .List(0, 0) = "A"
    .List(0, 1) = "B"
    .List(0, 2) = "C"
    .List(0, 3) = "D"
    .List(0, 4) = "E"
    .List(0, 5) = "F"
    .List(0, 6) = "G"
    .List(0, 7) = "H"
    .List(0, 8) = "I"
    .List(0, 9) = "J"
End With

End Sub

Это работало нормально для всех 10 столбцов, пока я не изменил цикл, который идет после этогокод. Я все изменил обратно, но без игры в кости.