Ampliar columnas en listbox

Hola amigos, un saludo a todos Uds., les pido ayuda con respecto al tema, lo que pasa es que encontre un archivo que se ajusta a mis necesidades de trabajo, pero solo esta diseñado para nueve columnas empezando de la columna A hasta la columna I, pero necesito ampliar hasta la columna O, se me olvidaba cuando ingreso la columna 10 me sale el mesaje de "no se puede configurar la propiedad list valor de propiedad no valido", estare a la espera de la ayuda de todos Uds., muchas gracias por todo y que tengan Dios les bendigue.

Private Sub Buscar_Click()

Worksheets("BASE").Activate

If Codigo = "" Then MsgBox ("INSERTAR META PRESUPUESTAL"): Exit Sub

OUT.Clear

Codigo = UCase(Codigo)

Modelo = UCase(Modelo)

Uso = UCase(Uso)

Español = UCase(Español)

Ingles = UCase(Ingles)

T1 = "": T2 = "": T3 = "": T4 = "": T5 = "": T6 = ""

T7 = "": T8 = "": T9 = "": TextBox100 = "": T11 = "": T12 = ""

For x = 1 To Filas

Preparar

If CondicionAnd = True Then

Seleccionar_And

Else

Seleccionar_Or

End If

If Seleccionado = True Then

OUT.AddItem ""

OUT.List(OUT.ListCount - 1, 1) = OUT.ListCount

OUT.List(OUT.ListCount - 1, 1) = HMAT.Cells(x, 1)

OUT.List(OUT.ListCount - 1, 2) = HMAT.Cells(x, 2)

OUT.List(OUT.ListCount - 1, 3) = HMAT.Cells(x, 3)

OUT.List(OUT.ListCount - 1, 4) = HMAT.Cells(x, 4)

OUT.List(OUT.ListCount - 1, 5) = HMAT.Cells(x, 5)

OUT.List(OUT.ListCount - 1, 6) = HMAT.Cells(x, 6)

OUT.List(OUT.ListCount - 1, 7) = HMAT.Cells(x, 7)

OUT.List(OUT.ListCount - 1, 8) = HMAT.Cells(x, 8)

OUT.List(OUT.ListCount - 1, 9) = HMAT.Cells(x, 9)

OUT.List(OUT.ListCount - 1, 0) = x

End If

Next x

If OUT.ListCount > 0 Then OUT.ListIndex = 0

End Sub