Private Declare Function SetProcessWorkingSetSize Lib "Kernel32.dll" (ByVal hProcess As Long, ByVal dwMinimumWorkingSetSize As Long, ByVal dwMaximumWorkingSetSize As Long) As Boolean

Private Declare Function GetCurrentProcess Lib "kernel32" () As Long

Public Function RunAndWait(ComLine As String, DefaultDir As String, ShowFlag As VbAppWinStyle) As Boolean
    Dim si As STARTUPINFO
    Dim pi As PROCESS_INFORMATION
    si.wShowWindow = ShowFlag
    si.dwFlags = STARTF_USESHOWWINDOW
    If CreateProcess(vbNullString, ComLine, ByVal  0 &, ByVal  0 &, False,  0 , ByVal  0 &, DefaultDir, si, pi) Then
        WaitForSingleObject pi.hProcess, INFINITE
        CloseHandle pi.hProcess
        RunAndWait = True
        Exit Function
    End If
    RunAndWait = False
End Function

If RunAndWait("7z.exe e " & fldWorkPath & "\in" & _
        NPoint & "firm.zip -o" & fldWorkPath & " -y", App.Path, vbHide) = True Then
            Kill fldWorkPath & "\in" & NPoint & "firm.zip"
        End If