Private Sub Text0_KeyPress(KeyAscii As Integer)
Const Strg = "#@%$#!/*?&+.,;:-<>\|[]{}§Å Å¡
Žž"
Dim Slovo As String
Dim Poz As Integer

Slovo = Chr(KeyAscii)

Poz = InStr(1, Strg, Slovo)

If Poz > 0 Then
KeyAscii = 0
End If
End Sub