Public Sub ExitApp()
  ' Fenster der HTML-Hilfe ermitteln (hierzu muss der 
  ' EXAKTE FENSTERTITEL bekannt sein!)
  Dim nHWnd As Long
  nHWnd = FindWindow(vbNullString, "Microsoft Explorer")
  If nHWnd <> 0 Then
    ' Fenster schließen
    SendMessage nHWnd, WM_CLOSE, 0&, 0&
  End If
  DoEvents
 
  ' Anwendung beenden
  Dim oForm As Form
  For Each oForm In VB.Forms
    Unload oForm
  Next 
End Sub