¿Cómo escribir un programa vb para guardar automáticamente las cadenas escaneadas por el escáner en csv (o excel) cada vez?

El resultado producido por el escáner parece ser una cadena de texto más un retorno de carro

Así que todo lo que el programa necesita hacer es iniciar, centrarse en el cuadro de texto y luego guarde el cuadro de texto y borre el cuadro de texto cuando se encuentre un retorno de carro (o no borre el cuadro de texto, pero borre el cuadro de texto cuando se acepte el primer carácter después del retorno de carro)

Vba escribe a la tabla de Excel actual. La declaración de guardado real se puede reescribir según sea necesario.

Dim?bcr?As?Boolean

Private?Sub?TextBox1_KeyDown(ByVal?KeyCode?As?MSForms.ReturnInteger , ByVal?Shift?As?Integer )

Si?KeyCode?=?13?Entonces

bcr?=?True

Celdas(Celdas(Filas. Count,?1).End(xlUp).Row?+?1,?1)? =?TextBox1.Text

ElseIf?bcr?=?True?Then

bcr ?=?Falso

TextBox1.Text?=?""

Otro

¿Fin?