Prüfen, ob ein externes Programm offen ist

Kann man feststellen, ob Microsoft Outlook gestartet ist ? 
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
   (ByVal szClass$, ByVal szTitle$) As Long 
Sub Outlook_offen()
   hFenster = FindWindow(vbNullString, "Microsoft Outlook")
   If hFenster = 0 Then MsgBox "Outlook ist nicht gestartet !"
End Sub