Visual Basic para Aplicaciones - Lectura de Código de Barra

Buenas Tardes
Tengo un problema leyendo códigos de barra, en resumen tengo un formulario con un TextBox y un ListBox, al abrir el formulario el Textbox obtiene el focus cuando la pistola lee código de barra automáticamente se registra en el Text Box y sale de el, así que programe el el evento Exit de dicho TextBox lo siguiente

Codigo = TextBox1.Value
TextBox1.Value = Vacio
ListBox1.AddItem Codigo

Luego en el evento Change del ListBox

TextBox1.SetFocus

Lo que realiza que cada vez que leo un Código de barra se registra dicho código en el ListBox, vacía el TextBox y vuelve a quedar disponible para seguir leyendo otro código. Funciona bien el problema es que en el proceso desaparecen unos dígitos, el ListBox queda así:

181532-91602205 (Lectura Correcta)
81532-91602205
1532-91602205
81532-91602205
81532-91602205

Como ven luego de tratar repetidamente leer el mismo código pierdo el primero y a veces hasta el segundo digito de dicho código

Agradezco la ayuda recibida
Gracias