Textbox: Cursor soll in gleicher Textbox bleiben

[StefKe]

Hallo in die Runde, ich möchte das bei einem Eingabefehler in eine Textbox nach "Enter" der Cursor in der betroffenen Textbox verbleibt:

Code:

Private Sub TextBox5_AfterUpdate()
    ListBox1.Visible = False
    With TextBox5
        If Len(.Value) <> 4 Then
            Errormessage ("die Kontonummer besteht aus 4 Ziffern")
            .SetFocus
            Exit Sub
        End If
    End With
End Sub

tut es aber nicht. Wo liegt der Fehler?

Danke
Stefan