Private Sub NAZIV_KeyPress(KeyAscii As Integer)
Const Strg = "#@%$#!/*?&+.,;:-<>\|[]{}§Å Å¡Å½Å¾
"
Dim Slovo As String
Dim Poz As Integer
 
Slovo = ChrW(KeyAscii)
Poz = InStr(1, Strg, Slovo) 
If Poz > 0 Then
KeyAscii = 0
End If
End Sub