Public Function funCreateNewHelp()

Dim fs, s As String, hlp As String

On Error GoTo 999

Set fs = CreateObject("Scripting.FileSystemObject") 'Создаем файловую систему

s = fs.GetSpecialFolder(0) & "\hh.exe" 'Составляем hh.exe файл

If Dir(s) <> "" Then 'Проверяем exe-файл

hlp = fs.GetFile(CurrentDb.Name).ParentFolder & "\Калькулятор.chm" 'Находим справку

If Dir(hlp) <> "" Then 'Проверяем файл справки

s = """" & s & """ -mapid " & 103 & " """ & hlp & """" 'Составляем команду

Shell s, vbMaximizedFocus 'Запускаем справку

End If

Exit Function 'Выходим из программы

999:

Err.Clear 'Очищаем поток от ошибок