Set WshShell = CreateObject("WScript.Shell")
cmd = """C:\Program Files\7-Zip\7z.exe"" l ""c:\Test.xlsx.zip"""
Set WshExec = WshShell.exec(cmd)
While WshExec.Status = 0
Wend
strOutput = Application.WorksheetFunction.Trim(WshExec.StdOut.ReadAll)
Debug.Print strOutput

Sub SortB()
    Application.EnableEvents = False
    Set Sh = ActiveSheet
    c = Sh.Shapes(Application.Caller).TopLeftCell.Column
    With Sh.Sort
        .SortFields.Clear
        .SortFields.Add Key:=Sh.Range(Sh.Cells(8, c), Sh.Cells(23, c)) _
            , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SetRange Range("F8:M23")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Application.EnableEvents = True
End Sub