Private WithEvents m_cUnzip As cUnzip
Private m_sPassword As String
 
Public Property Get Password() As String
   Password = m_sPassword
End Property
 
Private Sub Command1_Click()
 
Dim Frage As String
 
m_cUnzip.UseFolderNames = True
 
Frage = InputBox("Passwort eingeben", "Passwort eingeben")     <- hier wird _
  Passwort abgebragt
Dim sPwd As String
   sPwd = Trim$(Frage)
   If Len(sPwd) > 0 Then
      m_sPassword = sPwd
      'm_bCancel = False
   Else
    Frage = InputBox("Passwort eingeben", "Passwort eingeben")
   End If
 
sFIle = txtsFIle
sFolder = txtsFolder
 
' Set the zip file:
   m_cUnzip.ZipFile = sFIle
   sPassword = Frage   <- und hier wird das Passwort an die Variable _
     übergeben
 
' Set the base folder to unzip to:
   m_cUnzip.UnzipFolder = sFolder
 
' Unzip the file!
   m_cUnzip.Unzip
End Sub
 
Private Sub Form_Load()
 
Dim sFIle As String
Dim sFolder As String
 
' das ist neu:
Set m_cUnzip = New cUnzip
 
End Sub