[Resolvido]Evitar símbolos em txt mediante aviso

Bom dia

Como evitar símbolos destes (- \ /) numa caixa de texto, avisando o utilizador que não pode utilizar este formato?

Obrigado

Coloque o seu formulario com visualizar teclas = Sim

No evento ao pressionar tecla da sua caixa de texto;

Private Sub SuaCaixaTexto_KeyPress(KeyAscii As Integer)
Const ChNaoPermitidos = "-/\<>?"
If InStr(ChNaoPermitidos, Chr(KeyAscii)) > 0 Then
KeyAscii = 0
MsgBox "Caracteres não permitidos...", vbCritical
End If
End Sub

Desculpe e ignore a última mensagem. Precipitação minha estava com duas instâncias da mesma mdb abertas e fui para a errada :

Funfa e ainda tem a vantagem de poder colocar os simbolos que quiser;

Const ChNaoPermitidos = "-/\<>?"