Trochu víc jsem hledal a tak si sám odpovím:

'Command to pass HTMLHelp()
Public Const HH_DISPLAY_TOPIC = &H0 ' Display the help file.
Public Const HH_DISPLAY_TOC = &H1 ' Display the table of contents.
Public Const HH_DISPLAY_INDEX = &H2 ' Display the index.
Public Const HH_DISPLAY_SEARCH = &H3 ' Display full text search.
Public Const HH_HELP_CONTEXT = &HF ' Display mapped numeric value in dwData.

Declare Function HtmlHelp Lib "hhctrl.ocx" Alias "HtmlHelpA" _
(ByVal hwndCaller As Long, ByVal pszFile As String, _
ByVal uCommand As Long, ByVal dwData As Long) As Long

Sub HtmlNapoveda()
Dim iTemp As Long
Dim iContextID As Long
Dim strHelpFile As String
strHelpFile = "c:\Temp\NewProject.chm"
iContextID = 1010
iTemp = HtmlHelp(0, strHelpFile, HH_DISPLAY_TOC, 0)
End Sub
HH_DISPLAY_TOC zobrazí table of contents, tedy obsah
HH_DISPLAY_TOPIC by zobrazovalo vybraný topic

Omlouvám se, měl jsem jsem hledat víc, než jsem to sem hodil
Kdo by se chtěl dozvědět ještě něco víc: http://www.helpscribble.com/vba.html