Macro para actualizar stock después de haber eliminado producto de ListBox

Nuevamente por acá amigos, les platico estoy realizando una pequeña aplicación donde se realizara la salida de productos. Con la ayuda de varias personas y lo que eh investigado ya lo llevo un poco avanzado.

Les platico como funciona en lo general:

1. De un ComboBox se jala la información de la BD a varios TextBox y posteriormente se captura la información del cliente en los otros TextBox.
2. Con el botón "Ingresar datos" se descarga la información a una hoja llamada "Salidas" y también lo carga en un ListBox.
3. En caso de ingresar un producto no deseado, se puede eliminar en el ListBox y después pulsar el botón "Eliminar datos".

Hasta ahí todo bien, aquí viene la pregunta como puedo adaptar una macro al botón "Eliminar datos" que me devuelva la "cantidad" del o los producto eliminados del ListBox.

Con esta instrucción cargo la cantidad del producto a la BD

Worksheets("inventario").Visible = True
Worksheets("inventario").Select
If ComboBox2 <> "" Then
ActiveCell.Offset(0, 5).Value = ActiveCell.Offset(0, 5).Value + TextBox6
Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False).Activate
ActiveCell.Offset(1, 0).Select
TextBox1 = ActiveCell

Y con esta otra elimino del ListBox y de dos hojas

Private Sub CommandButton5_Click()
'Borrar del ListBox y de la hoja
Dim row_LB&
Dim SiNo As String
Dim NewRow As Integer
Dim varRow As Integer
SiNo = MsgBox("Estás seguro de Eliminar el Articulo seleccionado?", vbYesNo + vbQuestion, "CONFIRMA")
If SiNo <> vbYes Then Exit Sub
Worksheets("Salidas").Select
Range("A1").Select
With ListBox1
  row_LB = .ListIndex
  If row_LB = -1 Then Exit Sub
  .RemoveItem row_LB
  .ListIndex = -1
End With
With Sheets("Salidas")
  .Range("A1:K1").Offset(row_LB).Delete xlShiftUp
End With
    With Sheets("ValeCompras")
        .Range("A12:D12").Offset(row_LB).Delete xlShiftUp
        i = 13
        Do While .Cells(i, "A").Value <> ""
            i = i + 1
        Loop
        .Rows(i).Insert
    End With
End Sub