Public Function CFHookProc(ByVal hdlg As Long, ByVal uiMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
' здесь размещается ваш код
End Function
CFHookProc используется для обработки сообщений Общего диалогового окна Выбор шрифта. Имя функции может быть произвольным, но среди программистов принято использовать именно CFHookProc. Подобно всем функциям обратного вызова, функция CFHookProc должна объявляться как Public в стандартном модуле
Если функция возвращает 0, обработчик сообщений диалогового окна обрабатывает сообщение. Если функция возвращает ненулевое значение, то обработчик сообщений не получил сообщения.