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
MsgBox "Slovo je: " & slovo & vbcr &  "Asc kod slova je :"  & KeyAscii & vbcr & U tvom stringu je na mjestu: " & Poz
KeyAscii = 0
End If
End Sub