Gruppe
Dialog
Problem
Wie kann ich die in eine TextBox einzutragende Zeichenfolge auf 6 Zeichen begrenzen?
ClassModule: frm6Zeichen
Private Sub cmdContinue_Click()
Unload Me
End Sub
Private Sub txt6Chars_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(txt6Chars.Text) < 6 Then
Beep
MsgBox "6 Zeichen eingeben!"
With txt6Chars
.SetFocus
.SelStart .TextLength
Exit Sub
End If
End Sub