不好意思，请教一个关于SHELL函数的问题（在线等待）

Question

用以下代码执行应用程序，为什么当应用程序不存在时ERR捕捉不到错误（即没有自行MsgBox Err.Description）。
请问这是为什么，有没有办法解决？
麻烦了。
On Err GoTo err1
 Shell filepath
err1:
MsgBox Err.Description

Answer 1

' 这样就行了
Option ExplicitPrivate Sub Command1_Click()
On Error GoTo err1
Shell "aa.exe"
err1:
MsgBox Err.Description
End Sub

Answer 2

' 最好这样
Option ExplicitPrivate Sub Command1_Click()
On Error GoTo err1
Shell "regedit.exe"
Exit Sub
err1:
MsgBox Err.Description
End Sub

Answer 3

主要是On Err GoTo err1应该改成On Error GoTo err1，然后 shell 下面加上 Exit Sub防止没有错误也弹出对话框。

Answer 4

Dim ii As Long
  if error <> 0 then
     ii=Shell(appPath & "aa.exe ")
  endif