Como restar items seleccionados con doble click

hola tengo un formulario en donde agrego datos de listbox1 a listbox2 los items agregados en este listbox tienen 3 columnas en la ultima se encuentra la cantidad y con esta macro realizo la suma de las cantidades y lo proyecto en un textbox4:

Private Sub Listbox1_DblClick(ByVal Cancelar As MSForms.ReturnBoolean)
SumaTextBox4 = SumaTextBox4 + CDbl(ListBox1.List(ListBox1.ListIndex, 2))
TextBox4 = Format(SumaTextBox4, "#,##0.00")

End sub

esto hace que al dar doble click a un item de el listbox1 automáticamente en el textbox 4 se haga la suma de los items agregados a el listbox 2

MI PROBLEMA es que necesito como agrego listas largas no puedo borrar todo el listbox 2 porque tardaría muchísimo volviendo a agregar items lo que necesito es borrar con doble click items que se habían agregado del listbox 2 y lo he logrado con esta macro que me dieron ayer:

Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If ListBox2.ListIndex = -1 Then Exit Sub
ListBox2.RemoveItem (ListBox2.ListIndex)

End sub

lo que necesito es que aparte de borrar el item del listbox2 también se haga la resta de en el textbox 4