Restar dato a celda al capturar un dato de listbox

Tengo el siguiente código para agregar diversos datos a la vez a un solo listbox

Me.ListBox1.ColumnCount = 8
Me.ListBox1.ColumnWidths = "120 pt;130 pt"

Me.ListBox1.AddItem Me.txt1.Text
Me.ListBox1.List(I, 1) = Me.txt2.Text
Me.ListBox1.List(I, 2) = Me.TXTTALLE.Text
Me.ListBox1.List(I, 3) = Me.TXTCOLOR.Text
Me.ListBox1.List(I, 4) = Me.TXT5.Text
Me.ListBox1.List(I, 5) = Me.txt3.Text
Me.ListBox1.List(I, 6) = Me.ComboBox1.Text

Y después tengo en un botón, el siguiente código que me permite capturar los datos del listbox a mi hoja de excel y al capturar me busca el dato de celda activa en mi hoja1, lo que requiero es que el valor agregado al listbox que corresponde a me. Listbox. List(i, 5) osea el txt3.value  me reste del valor encontrado se desplaza ocho lugares a la derecha y me reste la cantidad que exista menos  el valor de me. Listbox.list(i,5)

Mi código me funciona si en vez de listbox tengo el puro textbox pero ahora no se como llamar al valor del listbox que corresponde al txt3.value

buscaru = ActiveCell.Value
Sheets("matriz").Select

Cells.Find(what:=buscaru, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, _
Searchformat:=False).Activate

ActiveCell.Offset(0, 8).Value = Val(ActiveCell.Offset(0, 8).Value) - (aqui puse lo siguiente : val(me.listbox.list(i,5))