Private Sub Text0_KeyPress(KeyAscii As Integer) Const Strg = "%$#!/*?&+.,;:-<>\|[]{}§" Dim Poz As Integer Dim KeyStr As String KeyStr = Chr$(KeyAscii) Poz = InStr(1, Strg, KeyStr) If Poz > 0 Then KeyAscii = 0 End If End Sub