Выведение элементов в ListBox и ошибка "Invalid property array index"

Dim i, j, k, n As Integer
 
Private Sub CommandButton1_Click()
 
 
     ListPr.AddItem "X", 0 
     ListPr.List(0, 1) = "Y"
     ListPr.List(0, 2) = "Z"
     ListPr.List(0, 3) = "n"
     For n = 10 To 99
        For i = 1 To n
            For j = 1 To i
                For k = 1 To j
                If (i * i + j * j + k * k) = n Then
                
                ListPr.List(1, 1) = Str(i)
                ListPr.List(1, 2) = Str(j)
                ListPr.List(1, 3) = Str(k)
                ListPr.List(1, 4) = Str(n)
                End If
                Next k
            Next j
        Next i
    Next n
End Sub

Dim i as long, j as long, k as long, n as long 'As Integer - прошлый век

Function nutius()
  Dim i%, j%, k%, n%, d As Object
  Set d = CreateObject("scripting.dictionary")
  On Error Resume Next
  For i = 1 To 9
    For j = 1 To 9
      For k = 1 To 9
        n = i * i + j * j + k * k
        If n > 9 And n < 100 Then d.Add n, 1
  Next k, j, i
  nutius = Application.Transpose(d.keys)
End Function
 
Sub test()
  Sheets(1).ComboBox1.List = nutius
End Sub

ListPr.AddItem
'а далее
ListPr.List(ListPr.Listcount-1, ?) = Str(?)