 - 1) = vbNullChar
   
   sZipFile = cZipObject.ZipFile
   lR = ZpArchive(iFileCount, sZipFile, tZipName)
   
   VBZip = lR

End Function

Private Function ZipServiceCallback(ByRef mname As CBChar, ByVal x As Long) As
 Long
Dim iPos As Long
Dim sInfo As String
Dim bCancel As Boolean
    
On Error Resume Next
    
   ' Check we've got a message:
   If x &gt; 1 And x &lt; 1024 Then
      ' If so, then get the readable portion of it:
      ReDim b(0 To x) As Byte
      CopyMemory b(0), mname, x
      ' Convert