commondialog & help

[hllh]

x - искомое слово в справке. Мне надо чтобы сразу открывалась страница с текстом, в котором есть это слово, но открывается окно поиска справки. Если нажать enter, то открывается текст, который нужен. Я пробовал писать ещё и sendkeys "{enter}", но не помогает, а только все зависает. Подскажите как открыть сразу текст

Код: Выделить всё

Private Sub Command1_Click()
x = "Если"
With CD1
 
   .HelpKey = x
   .HelpCommand = cdlHelpKey
   .HelpFile = App.Path & "\INTAL.HLP"
   .ShowHelp
End With
End Sub