On Error Resume [color=blue]Next[/color]
 
  Dim TaskID As Long, sPath As String
 
  sPath = App.Path
  If Right(sPath, 1) <> "\" Then sPath = sPath & "\"
  TaskID = Shell(sPath & "irgendwelche.exe", vbNormalNoFocus)
 
  If Err.Number <> 0 Then MsgBox "Programm nicht gefunden"

Viel Spass,
R@lf