Leer código de barras, pasar a TextBox y ejecutar consulta

Puedo molestar con otra consulta...

Estoy generando un formulario sencillo, en donde realizo una búsqueda con un combobox1, para buscar un articulo y me muestra el resultado que busco en mi textbox1 en formato peso. Hasta aquí todo bien, pero quiero hacer lo mismo usando un lector código de barras, para no estar di guitando todo, posiciono el cursor en un segundo combobox2 que me lista mis códigos, pero no me muestra resultado en mi textbox1.

La formula VBA la obtuve en la red y la modifique para mi necesidad, es la misma para ambos combobox, solo cambiando la fila de búsqueda;

Esta es mi rutina;

Private Sub ComboBox1_Change()
Dim fila As Integer
Dim final As Integer

If ComboBox1.Value = "" Then
Me.Txt_Precio = ""
ComboBox2 = ""

End If

For fila = 2 To 5000
If Hoja5.Cells(fila, 2) = "" Then
final = fila - 1
Exit For
End If
Next

For fila = 2 To final
If ComboBox1 = Hoja5.Cells(fila, 2) Then
Me.Txt_Precio = Hoja5.Cells(fila, 4)
Me.Txt_Precio = Format(Txt_Precio, "$ #,##0")
Exit For
End If
Next

End Sub

--------------------------------------------------------------------

Private Sub ComboBox1_Enter()
Dim fila As Integer
Dim final As Integer
Dim Lista As String

For fila = 2 To ComboBox1.ListCount
ComboBox1.RemoveItem 0
Next fila

For fila = 2 To 5000
If Hoja5.Cells(fila, 2) = "" Then
final = fila - 1
Exit For
End If
Next
For fila = 2 To final
Lista = Hoja5.Cells(fila, 2)
ComboBox1.AddItem (Lista)
Next

End Sub

----------------------------------------------------------------------------------

Private Sub ComboBox2_Change()
Dim fila As Integer
Dim final As Integer

If ComboBox2.Value = "" Then
Me.Txt_Precio = ""
ComboBox1 = ""

End If

For fila = 2 To 5000
If Hoja5.Cells(fila, 1) = "" Then
final = fila - 1
Exit For
End If
Next

For fila = 2 To final
If ComboBox2 = Hoja5.Cells(fila, 1) Then
Me.Txt_Precio = Hoja5.Cells(fila, 4)
Me.Txt_Precio = Format(Txt_Precio, "$ #,##0")
Exit For
End If
Next
End Sub

----------------------------------------------------------------

Private Sub ComboBox2_Enter()
Dim fila As Integer
Dim final As Integer
Dim Lista As String

For fila = 2 To ComboBox2.ListCount
ComboBox2.RemoveItem 0
Next fila

For fila = 2 To 5000
If Hoja5.Cells(fila, 1) = "" Then
final = fila - 1
Exit For
End If
Next
For fila = 2 To final
Lista = Hoja5.Cells(fila, 1)
ComboBox2.AddItem (Lista)
Next
End Sub

------------------------------------------------------------