utilizando la api
h = HtmlHelp(Me.hWnd, App.Path & "\ayuda\prjayuda.chm", HH_DISPLAY_TOPIC, 0&)
cuya declaracion es
Private Declare Function HtmlHelp Lib "hhctrl.ocx" Alias "HtmlHelpA" _
(ByVal hwndCaller As Long, ByVal pszFile As String, _
ByVal uCommand As HH_COMMAND, ByVal dwData As Long) As Long
Espero sea suficiente sino comentalo.