Error Evento

Buenas

Tengo este codigo que hay abajo y en un modulo standar el resto de acciones.

El problema es que al provocar un error queriendo, por ejemplo pulsar una
letra en un campo que solo admite fechas me aparece el error NO SE ENCONTRO
EL EVENTO

Private Sub Fecha_KeyPress(KeyAscii As Integer)

Select Case Tecla_Tipo

Case 1
KeyAscii = Teclas_Validas.Version_Fecha(KeyAscii)

Case 2
KeyAscii = Teclas_Validas.Version_Numeros(KeyAscii)

Case 3
KeyAscii = Teclas_Validas.Version_Letras(KeyAscii)

Case 4
KeyAscii = Teclas_Validas.Version_Moneda(KeyAscii)

Case 5
KeyAscii = Teclas_Validas.Version_Cadenas_Mayusculas(KeyAscii)

End Select

RaiseEvent KeyPress(KeyAscii)

End Sub

' Teclas_Validas es el nombre del Modulo.

¿Alguien sabe donde esta el problema?

Gracias por vuestra ayuda.