ошибка 380 на выделенной строке, как исправить

[kentd]

Me.ListBox1.List(0, 1) = "ID"
Me.ListBox1.List(0, 1) = "Çàêàç-Íàðÿä"
Me.ListBox1.List(0, 2) = "Äàòà_ðåãèñòðàöèè"
Me.ListBox1.List(0, 3) = "Ôàìèëèÿ"
Me.ListBox1.List(0, 4) = "Èìÿ"
Me.ListBox1.List(0, 5) = "Îò÷åñòâî"
Me.ListBox1.List(0, 6) = "Äàòà ïðîâîäêè"
Me.ListBox1.List(0, 7) = "Ïðåêóðñîð"
Me.ListBox1.List(0, 8) = "Ýëåìåíò ïðòåçà"
Me.ListBox1.List(0, 9) = "Êîë-âî"
Me.ListBox1.List(0, 10) = "Êàòåãîðèÿ_ïàöèåíòà"
Me.ListBox1.List(0, 11) = "Òåõíèê"

[NetSpace]

для начала закомментировать строку. потом скопировать предыдущую и немного исправить индекс c 9 на 10:

Me.ListBox1.List(0, 10) = "Êîë-âî"

запустить и посмотреть, будет ли какая-то ошибка в этот раз.
если ошибки не будет, начинайте понемногу, по одному символу копировать текст из закомментированной строки Êàòåãîðèÿ_ïàöèåíòà - рано или поздно вы на каком-то символе получите ошибку - вот тогда и будем думать, что это за ошибка с символом.

[jillitil]

Известная проблема. СписокКоробка нужен костыль для работы:

Private Sub UserForm_Initialize()
    Dim Костыль(0, 50)
    ListBox1.ColumnCount = 12
    ListBox1.List = Костыль
    ListBox1.Clear
End Sub

После этого ваш код будет работать.