Dim strBuffer As String
   Dim i As Integer
   Dim lCount As Long
   Dim rettab() As String
   Dim lResult As Long
 
   Timer1.Enabled = False
 
   ' Falls ZipFile keine Daten enthält oder beschädigt ist, Abbrechen
   If sevZIP_CheckZipFile(m_strZipFilename, "") <> 0 Then
      MsgBox "Achtung!" & vbCrLf & "Die Zip-Datei ist entweder beschädigt " & _
         "oder enthält keine Dateien!", vbCritical, "ZIP-Fehler"
      Exit Sub
   End If
 
   ' Zip-Infos holen
   lCount = sevZIP_ZipFileCount(m_strZipFilename)
 
   For i = 0 To lCount - 1
      lResult = sevZIP_ZipFileInfoEx(m_strZipFilename, i, strBuffer)
      If lResult > 0 Then
         rettab = Split(strBuffer, ";")
      Else
         MsgBox "Fehler beim Bearbeiten der ZIP-Datei", vbInformation, "Fehler"
      End If
   Next