Problema con Propiedad List

Buenas Señores de TodoExpertos, Saludos.

Tengo un problema en VBA con un proceso que realizo para eliminar un items de un Listbox. Tengo me Sale el error siguiente :

No se puede configurar la propiedad List. Indice de Matriz de Propiedades no Valido.

Este error aparece cuando luego de eliminar el items realizo una carga al listbox.

Estoy realizando la eliminación del items del ListBox con este código en la propiedad DblClick del mismo. Este es mi Código:

If ListBox4.ListIndex <> -1 Then
ListBox4.RemoveItem (ListBox4.ListIndex)
End If

Y mi botón de cargar nuevamente el listbox es este su código:

On Error GoTo UserForm_Initialize_Err
LotesVender = TextBox5.Value
CostoVenta = ListBox6.Column(1)
Operación = LotesVender * CostoVenta
If ListBox5.Column(0) <> "" Then
With Me.ListBox4
.AddItem
.List(j, 0) = (ListBox5.Column(0))
.List(j, 1) = (ListBox6.Column(0))
.List(j, 2) = (ListBox6.Column(1))
.List(j, 3) = LotesVender
.List(j, 4) = Operación
j = j + 1
End With
End If
For i = 0 To ListBox4.ListCount - 1
Total = Total + Val(ListBox4.List(i, 4))
Total1 = Format(Total, "##,##00.00")
TextBox4.Value = ""
TextBox4.Value = "Bs.F" + " " + CStr(Total1)
Next
UserForm_Initialize_Exit:
On Error Resume Next
rst.Close
cnn.Close
Set rst = Nothing
Set cnn = Nothing
Exit Sub
UserForm_Initialize_Err:
MsgBox Err.Number & vbCrLf & Err.Description, vbCritical, "Error!"
Resume UserForm_Initialize_Exit

Realize el seguimiento del recorrido del código y da el error cuando esta ingresando el registro al Listbox "-.List(j, 0) = (ListBox5.Column(0))-".........

Gracias espero puedan ayudarme señores...