UserForm ListBox не принимает более 10 элементов? Ошибка времени выполнения '380'

Question

Multi-Selectable Listbox на пользовательской форме в Excel VBA заполняется неправильно, после десятого столбца.

Я явно установил количество столбцов в 13, мой синтаксис кажется подходящим.

Я читал некоторые другие темы по этому вопросу, только подсказки, которые я получаю, это элемент ListView, который, как мне кажется, не может понять, как получить доступ к моей панели инструментов.

Do While Not FetchSearch Is Nothing

                    FetchPositionVar = FetchSearch.Address

                    PossibleRecordsList.AddItem

                    ListPos = PossibleRecordsList.ListCount

                    PossibleRecordsList.List(ListPos - 1, 0) = Trim(ws.Cells(FetchSearch.Row, 19).Value)
                    PossibleRecordsList.List(ListPos - 1, 1) = Trim(ws.Cells(FetchSearch.Row, 7).Value)
                    PossibleRecordsList.List(ListPos - 1, 2) = Trim(ws.Cells(FetchSearch.Row, 8).Value)
                    PossibleRecordsList.List(ListPos - 1, 3) = Trim(ws.Cells(FetchSearch.Row, 10).Value)
                    PossibleRecordsList.List(ListPos - 1, 4) = Trim(ws.Cells(FetchSearch.Row, 11).Value)
                    PossibleRecordsList.List(ListPos - 1, 5) = Trim(ws.Cells(FetchSearch.Row, 12).Value)
                    PossibleRecordsList.List(ListPos - 1, 6) = Trim(ws.Cells(FetchSearch.Row, 1).Value)
                    PossibleRecordsList.List(ListPos - 1, 7) = Trim(ws.Cells(FetchSearch.Row, 2).Value)
                    PossibleRecordsList.List(ListPos - 1, 8) = Trim(ws.Cells(FetchSearch.Row, 4).Value)
                    PossibleRecordsList.List(ListPos - 1, 9) = Trim(ws.Cells(FetchSearch.Row, 5).Value)
                    PossibleRecordsList.List(ListPos - 1, 10) = Trim(ws.Cells(FetchSearch.Row, 6).Value)
                    PossibleRecordsList.List(ListPos - 1, 11) = Trim(ws.Cells(FetchSearch.Row, 15).Value)
                    PossibleRecordsList.List(ListPos - 1, 12) = RecordYear

                    Set FetchSearch = FetchRange.Find(what:=FetchDataMatch, After:=Range(FetchPositionVar), SearchDirection:=xlNext, LookAt:=xlPart)

                    If FirstFindPositionVar = FetchSearch.Address Then
                        Exit Do
                    End If
                Loop

Я заполняю список множественного выбора из нескольких листов. Каждый элемент списка - это массив из 13 элементов, взятый из строки на одной из рабочих таблиц, после того как поиск идентифицирует строку с релевантными данными для отображения.

В списке будет содержаться несколько «возможно правильных записей», которые затем будут отображаться для выбора несколькими пользователями. Выбранные записи помещаются в другой список и используются для генерации отчета.

когда он достигает 11-го элемента, я получаю ошибку времени выполнения 380