Textbox auf Anzahl der Zeichen prüfen

[RPP63]

Moin!
Ich würde das Exit-Event nehmen:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With TextBox1
  If Len(.Text) <> 4 Then
    MsgBox "Die Kontobezeichnung besteht aus 4 Zahlen!" & vbNewLine & _
      .Text & " besteht aus " & Len(.Text) & " Zeichen!"
    Cancel = True
    .SelStart = 0
    .SelLength = Len(.Text)
  End If
End With
End Sub

Gruß Ralf