为什么我的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列上都工作正常，直到我更改了此代码之后的循环。我把所有东西都改回来了，但是没有骰子。