Function PRDX_Shell_GetAnswer(ByRef tmpCmd, Optional MsgIfTrue As Boolean, Optional MsgIfFalse As Boolean) As Boolean
Dim txt$

On Error GoTo er
txt = CreateObject("WScript.Shell").exec(tmpCmd).StdOut.ReadAll
On Error GoTo 0
If Len(txt) = 0 Then GoTo er

tmpCmd = txt
PRDX_Shell_GetAnswer = True
If MsgIfTrue Then MsgBox "Ответ команды «" & tmpCmd & "» УСПЕШНО ПОЛУЧЕН!", vbInformation, "PRDX_Shell_GetAnswer"
Exit Function

er: If MsgIfFalse Then MsgBox "Ответ команды «" & tmpCmd & "» НЕ ПОЛУЧЕН!", vbCritical, "PRDX_Shell_GetAnswer"
On Error GoTo 0
End Function

Option Base 1
Option Explicit
Option Private Module
'==================================================================================================
'#If VBA7 Then
    Private Declare PtrSafe Function API_Cmd_GetAnswer Lib "kernel32" Alias "GetCommandLineW" () As Long
    Private Declare PtrSafe Function API_Cmd_lstrlenW Lib "kernel32" Alias "lstrlenW" (ByVal lpString As Long) As Long
    Private Declare PtrSafe Sub API_Cmd_CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (MyDest As Any, MySource As Any, ByVal MySize As Long)
'#Else
'    Declare Function GetCommandLine Lib "kernel32" Alias "GetCommandLineW" () As Long
'    Declare Function lstrlenW Lib "kernel32" (ByVal lpString As Long) As Long
'    Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (MyDest As Any, MySource As Any, ByVal MySize As Long)
'#End If
'==================================================================================================
Function PRDX_Cmd_GetAnswer(sOut$) As Boolean
Dim Buffer() As Byte, StrLen&, CmdPtr&

    CmdPtr = API_Cmd_GetAnswer()
    If (CmdPtr <= 0) Then Exit Function

    StrLen = API_Cmd_lstrlenW(CmdPtr) * 2
    If (StrLen <= 0) Then Exit Function
    
    ReDim Buffer(0 To (StrLen - 1)) As Byte
    API_Cmd_CopyMemory Buffer(0), ByVal CmdPtr, StrLen
    sOut = Buffer: PRDX_Cmd_GetAnswer = True
End Function
'--------------------------------------------------------------------------------------------------
Private Sub Test_PRDX_Cmd_GetAnswer()
Dim s$, s7$, sZ$

    s7 = """" & vc_Str_Path_EXE_7z & """"
    sZ = """...Downloads\Transh Subs.xlsx.zip"""
    s = s7 & " l " & sZ
    Shell s, vbHide
    Debug.Print PRDX_Cmd_GetAnswer(s), s
End Sub
'==================================================================================================