I always get error on column 11 when trying to populate ListBox.

I have excel table in sheet Evaluations with test data from B3 to P24. The first 4 columns are text data, remaining 11 columns are numbers between 1 and 100
The first row of the table contains in column 4 text – assessors name that is selected in combobox.

I have created Userform on which I have placed ListBox. I also have a combobox with Assessors names. I want to populate the ListBox only with the records where in column 4 is name of the Assessor selected in combobox.

Upon initializing UserForm I call sub FilterPopulateListBox.

Private Sub FilterPopulateListBox()
    Dim PSelectedAssessor As String
    PSelectedAssessor = CmbAssessors.Value  ' Get the currently selected assessor's name

    Dim PWs As Worksheet
    Set PWs = ThisWorkbook.Sheets("Evaluations")
    Dim PLastRow As Long
    PLastRow = PWs.Cells(PWs.Rows.Count, "B").End(xlUp).Row

    Dim PData As Range
    Set PData = PWs.Range("B3:P" & PLastRow)

    ' Clear previous entries in the ListBox
    With lstEvaluations
        .Clear
        .ColumnCount = 15  ' Assuming there are 15 columns from B to P
        .ColumnWidths = "50;50;50;50;50;50;50;50;50;50;50;50;50;50;50"

    
 Debug.Print lstEvaluations.ColumnCount  ' Should print 15
        
        ' Loop through each row in the range and add to ListBox if the fourth column matches
        Dim PRow As Range
        For Each PRow In PData.Rows
            If PRow.Cells(1, 4).Value = PSelectedAssessor Then  ' Check if fourth column matches the ComboBox
                Dim PRowArray() As Variant
                PRowArray = Application.Transpose(Application.Transpose(PRow.Value))
                .AddItem PRowArray(1)  ' Add first column value
                Dim i As Integer
                For i = 1 To UBound(PRowArray)  ' Add other columns
                    .List(.ListCount - 1, i - 1) = CStr(PRowArray(i))
                Next i
            End If
        Next PRow
    End With
End Sub

on this line of the code

.List(.ListCount - 1, i - 1) = CStr(PRowArray(i))

I always get error when i=11

When i=11 the value of PRowArray(i) is 17 and the line
.List(.ListCount – 1, i – 1) = PRowArray(i)

shows error window “Run-time error ‘380’: Could not set the List property. Invalid property value.”

When debugging when I point with cursor at the beginning of the line at .List(.ListCount – 1, i – 1) it says. “Could not get the List property. Invalid argument” but PRowArray(i) is showing value 17
When i is less then 11 it shows eiter ‘Null’ (before executing that line – when the line is highlighted) or value of the PRowArray(i) when the line is extecuted and next line is highlighted.

I have ensured that listbox has 15 columns
I have nested PRowArray(i) into CStr(PRowArray(i)) to solve if there were some I don’t know what issues with data
I have debugged the code to see what kind of values the code reads for i 1 to 11. It all reads correctly even when i=11 and I point to PRowArray(i) the value is correctly 17

I read forums
I asked ChatGpt3.5