title: Show data in more than 10 columns in listbox
body: <p>I have userform containing 20 textbox and one listbox.</p>
  <p>The  code should show  data in listbox after filling 20 textbox.</p>
  <p>I searched the internet where I found this  code which works for somebody but not for me.</p>
  <pre><code>Private Sub CommandButton1_Click()
  Dim arr1 As Variant
  arr1 = Array(Me.TextBox1, Me.TextBox2, Me.TextBox3, Me.TextBox4, Me.TextBox5, Me.TextBox6, 
  Me.TextBox7, Me.TextBox8, Me.TextBox9, Me.TextBox10, Me.TextBox11, Me.TextBox12, Me.TextBox13, 
  Me.TextBox14, Me.TextBox15, Me.TextBox16, Me.TextBox17, Me.TextBox18, Me.TextBox19, Me.TextBox20)
  With ListBox1
      .AddItem
      For i = LBound(arr1) To UBound(arr1)
          .List(.ListCount - 1, i) = arr1(i).Value
      Next i
  End With
  End Sub
  </code></pre>
  <p><a href="https://i.stack.imgur.com/Hl4al.jpg" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/Hl4al.jpg" alt="enter image description here" /></a></p>
  <p><a href="https://i.stack.imgur.com/7ZBPi.jpg" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/7ZBPi.jpg" alt="enter image description here" /></a></p>