Textbox: Cursor soll in gleicher Textbox bleiben

[StefKe]

Danke, ich hatte das falsche Ereignis gewählt:

Code:

Private Sub TextBox5_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    ListBox1.Visible = False
    With TextBox5
        If Len(.Value) <> 4 Then
            Cancel = True
            Errormessage ("die Kontonummer besteht aus 4 Ziffern")
            .SetFocus
            Exit Sub
        End If
    End With

End Sub

... dann erscheint bei "Cancel" keine Fehlermeldung :-)
Errormessage() ist ein Aufruf mit der Fehlermeldung als String.

Gruß
Stefan