Function Provjera(Taster As Integer) As Boolean
Const znaci = "ABCDSG" ' Ovdje ukucate znakove koje zelite dozvoliti da se mogu ukucati
Dim Znak As String

Znak = Chr(Taster)
If InStr(1, znaci, Znak) > 0 Then
Provjera = True
Else
Provjera = False
End If

End Function