UserForm TextBox nach Eingabe nicht verlassen

[RubberBone]

Hallo zusammen,

ich programmiere gerade eine Geräteverwaltung. Ich habe eine Anzahl X an Gerätschaften, die ich jeweils mit einem BarCode-Aufkleber versehe und die ich verleihen möchte.
Ziel ist es, mit dem Barcode-Scanner die Geräte nacheinander abzuscannen und sie damit auf den Staus "ausgeliehen" zu setzen.
Das Ganze wird deutlich komplexer, aber für die Fragestellung ist diese Info erst einmal ausreichend. Wichtig ist noch zu erwähnen, dass ich einen Barcode-Scanner verwende, der scheinbar nach der Eingabe immer automatisch noch eine Eingabetaste mit übermittelt.

Ich habe ein UserForm mit einer TextBox. Diese ist aktiv. Ich scanne meinen Barcode ein und es wird der Klartext dann in das Feld geschrieben. Per VBA nehme ich in der Private Sub TextBox1_Exit -Prozedur diesen String, speichere ihn in eine Zelle im Tabellenblatt und leere wieder die Textbox. 
Ich möchte jetzt nahtlos das nächste Gerät scannen können, aber das Problem ist, dass der Cursor nach dem ersten Scannen immer die TextBox verlässt und ich immer wieder reinklicken müsste.

Auch mit TextBox_ID.SetFocus in der Exit-Prozedur klappt das nicht. Auch nicht ,wenn ich die Exit-Prozedur vorzeitig mit Exit Sub verlasse.

Hat jemand einen heißen Tipp?

Ich danke vielmals!
Rub

[Kuwer]

Hallo Rub,

Code:

Private Sub TextBox_ID_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = 13 Then
    With Tabelle6.Cells(Rows.Count, 1).End(xlUp)
      .Offset(1, 0).Value = TextBox_ID
      .Offset(1, 1).Value = Now
    End With
    TextBox_ID = ""
    KeyCode = 0
  End If
End Sub

Gruß Uwe

[RubberBone]

Super gut, funktioniert!
Danke!!