lCount = sevZIP_ZipFileCount(strZipFilename)
For i = 0 To lCount - 1
  lResult = sevZIP_ZipFileInfo(strZipFilename, i, Text1.hWnd)
  strBuffer = Text1.Text
  Debug.Print "Buffer: " & strBuffer
  If lResult > 0 Then
    rettab = Split(strBuffer, ";")
  Else
    MsgBox "Fehler beim Bearbeiten der ZIP-Datei", vbInformation, "Fehler"
  End If
Next i