VBA调用程序时，exe程序一闪而过，解决方法

在使用vba的时候，出现使用

sub test()
	shell "1.exe"
end sub

程序界面一闪而过，通过查询，应该是，在调用动态连接的时候，没有调用，导致产品异常报错，使用API也可以解决，但是本人小白，只能复制网络的代码，如下，来进行修改：

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _
                                                                               ByVal lpOperation As String, _
                                                                               ByVal lpFile As String, _
                                                                               ByVal lpParameters As String, _
                                                                               ByVal lpDirectory As String, _
                                                                               ByVal nShowCmd As Long) As Long


Sub open_exe()
    ShellExecute Application.hwnd, "open", "C:\Users\1.exe", 0, 0, 1
End Sub