[Resolvido] Criar Módulo Validar Caracteres

Gostaria de criar um módulo com uma função para que nos campos numéricos não aceite determinados caracteres!
Atualmente eu adiciono o procedimento abaixo na função do campo "AO PRECIONAR A TECLA" e funciona bem, mas tenho que repetir o código em cada campo e pensei em ter uma função para que o código fosse escrito apenas uma vez e fosse chamado ao digitar da mesma forma que utilizo atualmente.

AO PRECIONAR A TECLA:

Private Sub VlrIcms_KeyPress(KeyAscii As Integer)
Const ChNaoPermitidos = "-/\<>?qwertyuiopasdfghjklçzxcvbnm.,*+&%#@!"
If InStr(ChNaoPermitidos, Chr(KeyAscii)) > 0 Then
KeyAscii = 0
Call MsgBox(" Caracter não permitido para o campo! ", vbInformation + vbOKOnly, "SieWeb")
End If
End Sub

Muito obrigado mestre Avelino!
Resolvido!!