<code>Option Explicit
Dim TaskID As Long</code>

<code><font color=green>' Anwendung starten</font>
TaskID = Shell("Anwenung1.exe")</code>

<code><font color=green>' Anwendung beenden</font>
On Local Error Resume Next
AppActivate TaskID, False
If Err <> 0 Then
  <font color=green>' Anwendung wurde bereits geschlossen</font>
Else
  SendKeys "%{F4}"
End If</code>