Como aumento 2 columnas mas a un listbox de 10 columnas

Tengo este codigo de un listbox que era de 10 columnas y queria modificarlo para 12 coumnas, ¿alguien me puede ayudar?

Private Sub btn_Agregar_Click()

'Configuramos el Listbox para formulario de ventas (userform9)
Me.ListBox1.ColumnCount = 12
Me.ListBox1.ColumnWidths = "40 pt;100 pt;50 pt;20 pt;30 pt;60 pt;100 pt;50 pt;40 pt;50 pt;50 pt;50 pt"
'Agregamos los Items
Me.ListBox1.AddItem Me.TextBox10.Text
Me.ListBox1.List(i, 1) = Me.TextBox11.Text
Me.ListBox1.List(i, 2) = Me.TextBox1.Text
Me.ListBox1.List(i, 3) = Me.TextBox2.Text
Me.ListBox1.List(i, 4) = Me.TextBox4.Text
Me.ListBox1.List(i, 5) = Me.TextBox5.Text
Me.ListBox1.List(i, 6) = Me.TextBox7.Text
Me.ListBox1.List(i, 7) = Me.TextBox12.Text
Me.ListBox1.List(i, 8) = Me.TextBox13.Text
Me.ListBox1.List(i, 9) = Me.TextBox14.Text
Me.ListBox1.List(i, 10) = Me.TextBox15.Text
Me.ListBox1.List(i, 11) = Me.TextBox16.Text
i = i + 1
'Limpiamos los TextBox
Me.TextBox10 = Empty
Me.TextBox11 = Empty
Me.TextBox12 = Empty
Me.TextBox13 = Empty
Me.TextBox14 = Empty
Me.TextBox15 = Empty
Me.TextBox16 = Empty
Me.ComboBox1 = Empty
Me.TextBox10.SetFocus
'Sumamos listbox1
BI = 0
IGV = 0
Total = 0
For i = 0 To ListBox1.ListCount - 1
If ListBox1.List(i, 7) <> "" Then BI = BI + CDbl(ListBox1.List(i, 7))
If ListBox1.List(i, 8) <> "" Then IGV = IGV + CDbl(ListBox1.List(i, 8))
If ListBox1.List(i, 9) <> "" Then Total = Total + CDbl(ListBox1.List(i, 9))
Next i
TextBox17.Text = BI
TextBox18.Text = IGV
TextBox19.Text = Total
End Sub