Textbox auf Anzahl der Zeichen prüfen

[StefKe]

Code:

Private Sub Pg2txtSollkonto_AfterUpdate()
    If Len(Pg2txtSollkonto) <> 4 Then
        MsgBox "Die Kontobezeichnung besteht aus 4 Zahlen!", vbOKOnly Or vbExclamation, "Bitte Eingabe überprüfen"
        With Pg2txtSollkonto
            .SetFocus
            .SelStart = 0
            .SelLength = Len(Pg2txtSollkonto)
        End With
    End If
End Sub

Guten Morgen allerseits, nach dem Verlassen einer Textbox per Tab-Taste soll die Anhzahl der Zeichen auf 4 geprüft werden. Falls die Bedingung nicht erfüllt ist wird der Text markiert.
Leider springt bei obigem Code der Cursor nach dem Verlassen der Textbox per Tab-Taste in die nächste Textbox ohne den Text zu markieren. Wo ist der Fehler?

Danke
Stefan