Mostrar ultimo valor de un valor buscado en listbox

Dante Amor

Resulta que tengo un listbox que en la columna 0 muestra los datos que busco en un textbox y en la columana 1 del listbox suma todos los valores del valor buscado en el textbox y en la columna 2 del listbox muestra otro valor . Me gustaría que en la siguiente columna 3 me mostrara el ultimo valor de la fila de la hoja 3 de la columna B del valor buscado en el textbox ..

No se si se entiende.. Anexo el código

Por favor Dan Gracias

Saludos

Private Sub txtbuscar_Change()
    Lb_buscar.Clear
    For i = 2 To Hoja3.Range("A" & Rows.Count).End(xlUp).Row
        cadena = UCase(Hoja3.Cells(i, 1))
        If cadena Like "*" & UCase(txtbuscar) & "*" And Hoja3.Cells(i, "A") <> 0 Then
            existe = False
            '
            For j = 0 To Lb_buscar.ListCount - 1
                If Hoja3.Cells(i, "A").Text = Lb_buscar.List(j) Then
                    Lb_buscar.List(j, 1) = Lb_buscar.List(j, 1) + Hoja3.Cells(i, "P")
                    prox = 5000 - (Lb_buscar.List(j, 1) - Int(Lb_buscar.List(j, 1) / 5000) * 5000)
                    Lb_buscar.List(j, 2) = prox
                    existe = True
                    Exit For
                End If
            Next
            If existe = False Then
                Lb_buscar.AddItem Hoja3.Cells(i, "A").Value
                Lb_buscar.List(Lb_buscar.ListCount - 1, 1) = Hoja3.Cells(i, "P").Value
                Lb_buscar.List(Lb_buscar.ListCount - 1, 2) = 100000 - Hoja3.Cells(i, "P").Value
            End If
        End If
    Next
End Sub