Fácil, usando el procedimiento Raise del objeto Err:
Err.Raise <ID de tu error>,<Origen del error>,<Descripción del error>,<Archivo de Ayuda>,<Contexto de la Ayuda>
Hasta lo puedes probar en la ventana Inmediato:
Err.Raise &HFFFFFF01,"Error Provocado","Se generó un error"