Eintrag in Listbox

Private Sub CommandButton4_Click()
'Neuen Eintrag zur Listbox hinzufügen
Dim lngZeileNeu As Long
lngZeileNeu = Me.ListBox1.ListCount
Me.ListBox1.AddItem
Me.ListBox1.Column(0, lngZeileNeu) = Me.DTPicker1
Me.ListBox1.Column(1, lngZeileNeu) = Me.TextBox1.Text
Me.ListBox1.Column(2, lngZeileNeu) = Me.ComboBox1.Value
Me.ListBox1.Column(3, lngZeileNeu) = Me.ComboBox2.Value
Me.ListBox1.Column(4, lngZeileNeu) = Me.ComboBox3.Value
Me.ListBox1.Column(5, lngZeileNeu) = Me.ComboBox4.Value
Me.ListBox1.Column(6, lngZeileNeu) = Me.ComboBox5.Value
Me.ListBox1.Column(7, lngZeileNeu) = Me.ComboBox6.Value
Me.ListBox1.Column(8, lngZeileNeu) = Me.ComboBox7.Value
Me.ListBox1.Column(9, lngZeileNeu) = Me.ComboBox8.Value
If CheckBox1.Value = False Then
Me.ListBox1.Column(10, lngZeile) = "offen"
Else
Me.ListBox1.Column(10, lngZeile) = "erledigt"
End If
Me.ListBox1.Column(11, lngZeileNeu) = Me.TextBox2.Text
Me.ListBox1.Column(12, lngZeileNeu) = Me.TextBox3.Text
End Sub