Pasar dato de un textbox a celda excel al detectar entre 8 a15 dígitos sin utilizar botón click.

Estoy realizando una formulario en la cual capture los datos de un escáner infrarrojo (entre 8 a 15 dígitos) y que esta reciba el textobox y envíe a una celda de la tabla que tengo.

Llevan como 7 columnas

1 contar los dígitos (largo)

2 validar que no tenga duplicados y si se encuentra 1 que me detenga y emita un beep

3 AQUÍ ES EL INGRESO DEL DATO ( con la cual al registrar los demás columnas se actualicen, estuve viendo con el bucle do while loop

4 el nombre de la persona que escanee (aquí lo tengo con un combobox).

5 - 6 datos que serán siempre lo mismo al ingreso de cada dato.

7 ingresar la fecha del día en que se escanea. (Aquí coloque la opción NOW)

En un label que me cuente todo los datos ingresados en la columna 3

Bueno ya vengo avanzando pero, no logro hacer que al ingresar el dato en el textbox envíe los datos y los cargue...
Aquí coloco los datos que ya iba avanzando.

En la textbox donde se ingresaran los datos

Private Sub txt_IngresarImei_AfterUpdate()
fila = 2

Do While Cells(fila, 2) <> ""
Cells(fila, 2).Value = Me.txt_IngresarImei
Cells(fila, 0).Value = Len(Me.txt_IngresarImei)
Cells(fila, 1).Value = "No es repetido"
Cells(fila, 3).Value = Me.txt_observacion
Cells(fila, 4).Value = Me.cbo_Auditor
Cells(fila, 5).Value = Me.txt_pallet
Cells(fila, 6).Value = Me.txt_ubicacion
Cells(fila, 7).Value = Now
fila = fila + 1
Loop
Dim contarfila As Integer
contarfila = 0
uf = Sheets("hoja1").Range("C" & Rows.Count).End(xlUp).Row
For i = 2 To uf
If Sheets("hoja1").Cells(i, 3) <> Empty Then
contarfila = contarfila + 1
End If
Next i

Me.Label11.Caption = contarfila

End Sub

al iniciar el formulario

Private Sub UserForm_Initialize()
cbo_Auditor.AddItem ("ALFARO") varios.

Label8.Caption = Format(Time, "hh:mm:ss")
Label7.Caption = Format(Date, "dd/mm/yyyy")
End Sub