Listbox

Hola que tal tavopz una preguntota: estoy haciendo un pequeño programa en el cual quiero realizar una búsqueda, el sistema es para almacen en donde para mandar un pedido que consta de varias cajas las pesan y cada una queda registrada, ese registro se guarda en un archivo txt para hacer una consulta desde un textbox y que se impriman en le listbox la pregunta es: ¿Hay algún método o función o algo para hacerlo sin tener que poner tanto código? Te pongo el cdigo para ver si me explico mejor.
Private Sub Busca_Click()
Dim RangePedi As Object
Dim Pedi As String, Codi As String, name As String, factu As String, no As String
Dim pes As String, fec As String, hor As String
Dim Respuesta As Single
' En A1: Pedi, En B1: Codi, etc
[A1:E1].ClearContents
codigo.Value = ""
nombre.Value = ""
factura.Value = ""
cajas.Value = ""
Pedi = pedido.Text
Application.ScreenUpdating = False
Set RangePedi = Cells.Find(What:=Pedi, LookIn:=xlValues, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
If RangePedi Is Nothing Then
Respuesta = MsgBox("Pedido no Encontrado")
GoTo Fin
End If
' Tomo el valor de Codi (Pedi no hace falta pues ya lo tengo)
Codi = RangePedi.Offset(0, 1).Value
name = RangePedi.Offset(0, 2).Value
factu = RangePedi.Offset(0, 3).Value
no = RangePedi.Offset(0, 4).Value
' Asigno codi al codigo, etc...
codigo.Value = Codi
nombre.Value = name
factura.Value = factu
cajas.Value = no
ListBox1.ColumnCount = 3
'Insertamos los pesos en el listbox
ListBox1.additem RangePedi.Offset(0, 5).Value
ListBox1.List(0, 1) = RangePedi.Offset(0, 6).Value
ListBox1.List(0, 2) = RangePedi.Offset(0, 7).Value