VBA Runtime error 70. Could not set the list property

Hi All

I am getting an error with the following line of code....Can anyone assist. First time I'm working with a ListBox in this manner. I have uploaded my workbook. What I'm also trying to achieve is edit the listbox and then update workbook.

Private Sub CommandButton1_Click()
With ListBox1
.List(ListBox1.ListIndex, 3) = TextBox1.Value
.List(ListBox1.ListIndex, 4) = TextBox2.Value
End With
End Sub