Public Sub HTMLHelp_ShowTopic( _
  Optional ByVal sTopicFile As String)
 
  Dim sHelpFile As String
 
  ' Pfad zur HTML-Hilfe
  sHelpFile = App.Path & "\CrossTravel.chm"
 
  If sTopicFile = "" Then
    ' Startseite anzeigen
    HtmlHelp 0, sHelpFile, HH_DISPLAY_TOPIC, ByVal 0&
  Else
    ' belibiege Seite anzeigen
    HtmlHelpTopic 0, sHelpFile, HH_DISPLAY_TOPIC, sTopicFile
  End If
End Sub