Buscar con un listbox

[egaleano]

Buen dia amigos

Llevaba un tiempo considerable sin aportar ni participar y esta vez vengo a pedirles una orientacion.

Cuando realizo busquedas en una base de datos utilizo el siguiente comando basado en un combobox:

busq = TextBox1
HojaXX.Visible = xlSheetVisible
    Set RANGO = HojaXX.Range("a:a").Find(busq)
        Label1 = HojaXX.Range("G" & RANGO.Row).Value
End if

Esto es cuando basado en el combo lleno un label o al reves si voy a llenar un campo de una hoja.

Pero como hago para llenar un listbox y que basado en los datos insertados vaya a una hoja y los ponga.

O sea, por ejemplo. En la linea 1 del listbox introduzco el codigo A con la cantidad X y el la linea 2 introduzco el codigo C con la cantidad Y; lo que quiero es que se busque cada codigo en una base de datos y le ponga la cantidad; agradezco la ayuda.

 

Mil gracias

Edwin Alexander Galeano