Public Function funCreateModule() As Boolean
On Error GoTo 999 'Переход по ошибке
funImportModule "Настройка.bas", "Настройка" '<5> Добавляем программу
Exit Function 'Выход из программы
999:
MsgBox Err.Description 'Сообщаем об ошибке
Err.Clear 'Очищаем поток от ошибок
