Как использовать командную строку? | VBA. How to use Cmd. Function «Shell()», Object «WshShell» and others

Private Sub Test_Shell()
Dim n&
    n = Shell("C:\WINDOWS\NOTEPAD.EXE", vbHide)         ' Run Notepad and Hide it immediately
    n = Shell("C:\WINDOWS\NOTEPAD.EXE", vbNormalFocus)  ' Run Notepad and set it Active
    Debug.Print n
End Sub

Option Base 1
Option Explicit
Option Private Module
'==================================================================================================
Public Const PROCESS_QUERY_INFORMATION& = &H400, SYNCHRONIZE = &H100000, STILL_ACTIVE& = &H103
Public Const vc_Cyc_2bil& = 2000000000
'==================================================================================================
Private Declare PtrSafe Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare PtrSafe Function GetExitCodeProcess Lib "kernel32.dll" (ByVal hProcess As Long, lpExitCode As Long) As Long
'==================================================================================================
Function PRDX_API_ShellAndWait(sCommand$, Optional MsgTrue As Boolean, Optional MsgFalse As Boolean) As Boolean
Dim p&, c&, e&, n&
 
p = Shell(sCommand, 0):                        If (p = 0) Then If MsgFalse Then MsgBox "Shell with command:" & vbLf & sCommand & vbLf & "is OUT!", vbCritical, "PRDX_API_ShellAndWait": Exit Function Else Exit Function
p = OpenProcess(PROCESS_QUERY_INFORMATION, 0, p):   If (p = 0) Then If MsgFalse Then MsgBox "OpenProcess of Shell with command:" & vbLf & sCommand & vbLf & "is OUT!", vbCritical, "PRDX_API_ShellAndWait": Exit Function Else Exit Function
 
For n = 1 To vc_Cyc_2bil
    e = GetExitCodeProcess(p, c): DoEvents:         If (e = 0) Then If MsgFalse Then MsgBox "GetExitCodeProcess of Shell with command:" & vbLf & sCommand & vbLf & "is OUT!", vbCritical, "PRDX_API_ShellAndWait": Exit Function Else Exit Function
    If (c <> STILL_ACTIVE) Then Exit For
Next n
 
If (n > vc_Cyc_2bil) Then n = 0:                    If MsgFalse Then MsgBox "Cycle to GetExitCodeProcess of Shell with command:" & vbLf & sCommand & vbLf & "was LOOPED!", vbCritical, "PRDX_API_ShellAndWait": Exit Function Else Exit Function
 
PRDX_API_ShellAndWait = True:                       If MsgTrue Then MsgBox "Shell with command:" & vbLf & sCommand & vbLf & "was succsessfully finished in " & Format$(n, "#,#") & " Cycles!", vbInformation, "PRDX_API_ShellAndWait"
End Function