Según tengo entendido un lector de código de barras actúa exactamente igual que un teclado. Va "tecleando" números hasta que los lee todos y termina con un intro. Así que lo más fácil que puedes hacer es posicionar el foco del teclado en un textbox y añadirle este código:
Código:
Private Sub TextBox_KeyPress(KeyAscii as Keycode)
If KeyAscii = VbKeyReturn then 'Aquí termina de pasar el código
msgBox "El codigo de barras es: " & TextBox.text
end if
End Sub
Es un ejemplo simple, pero espero que te sirva =)