extract folder and do it:
   sFolder = GetFolder()
   If (sFolder &lt;&gt; "") Then
      m_cExtractToMRU.Add sFolder
      m_cUnzip.UnzipFolder = sFolder
      m_cUnzip.Unzip
   End If
   
End Sub
Private Function GetFolder() As String
Dim i As Long

   Me.Enabled = False
   Dim fC As New frmExtractTo
   fC.LoadMRU m_cExtractToMRU
   Dim c As New cCaptureBF
   With c
      With .Browse
         .hWndOwner = Me.hwnd
         If m_cExtractToMRU.Count &gt; 0 Then
            .InitialDir = m_cExtractToMRU.Item