Private Sub TextBox10_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Chr(KeyAscii) Like "[a-z A-Z Ä ä Ö ö Ü ü . - ß]" = False Then KeyAscii = 0
End Sub
Private Sub TextBox10_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Chr(KeyAscii) Like "[a-z A-Z Ä ä Ö ö Ü ü . - ß]" = False Then KeyAscii = 0: MsgBox "Kein Text!"
End Sub