Listbox con más de 15 columnas

TodoExpertos, muy buenos días.

Me gustaría me indiquen como poder ampliar la cantidad de columnas en un listbox pues necesito que el mismo tenga 15 para poder asociar las filas a un textbox de un formulario del que depende.

La macro con la que estoy trabajando es

'
'Activar la celda del registro elegido
Private Sub ListBox1_Click()
Range("a2").Activate
Cuenta = Me.ListBox1.ListCount
Set Rango = Range("A1").CurrentRegion
For i = 0 To Cuenta - 1
    If Me.ListBox1.Selected(i) Then
        Valor = Me.ListBox1.List(i)
        Rango.Find(What:=Valor, LookAt:=xlWhole, After:=ActiveCell).Activate
    End If
Next i
frmMasinformacion.Show 'activa con un click el formulario con mas información
    frmMasinformacion.TextBox1 = ListBox1.Column(0)
    frmMasinformacion.TextBox1 = ListBox1.Column(0)
    frmMasinformacion.TextBox2 = ListBox1.Column(1)
    frmMasinformacion.TextBox3 = ListBox1.Column(2)
    frmMasinformacion.TextBox4 = ListBox1.Column(3)
    frmMasinformacion.TextBox5 = ListBox1.Column(4)
    frmMasinformacion.TextBox6 = ListBox1.Column(5)
    frmMasinformacion.TextBox7 = ListBox1.Column(6)
    frmMasinformacion.TextBox8 = ListBox1.Column(7)
    frmMasinformacion.TextBox9 = ListBox1.Column(8)
    frmMasinformacion.TextBox10 = ListBox1.Column(9)
    frmMasinformacion.TextBox11 = ListBox1.Column(10)
    frmMasinformacion.TextBox12 = ListBox1.Column(11)
    frmMasinformacion.TextBox13 = ListBox1.Column(12)
    frmMasinformacion.TextBox14 = ListBox1.Column(13)
    frmMasinformacion.TextBox15 = ListBox1.Column(14)
    frmMasinformacion.TextBox16 = ListBox1.Column(15)
'copia valor de la primer columna
Dim strList As String
'Dim i As Integer
For i = 0 To Me.ListBox1.ListCount - 1
   If Me.ListBox1.Selected(i) = True Then
      If Len(Trim(Me.ListBox1.List(i))) > 0 Then ' blank values excluded here
         strList = strList & Trim(Me.ListBox1.List(i)) & " " & vbNewLine '
      End If
   End If
Next i
Dim MyData As DataObject
Set MyData = New DataObject
MyData. Clear
MyData. SetText Trim(strList)
MyData. PutInClipboard
End Sub