Dim xComp As New XceedStreamingCompression

Call xComp.License( "your license key" ) 

Set xComp.CompressionFormat = New XceedStandardCompressionFormat 

Dim vaSource As Variant
Dim vaDest As Variant 

vaSource = "This is the data to compress compress compress" 

On Error Resume Next 

vaDest = xComp.Compress(vaSource, True) 

If Err.Number <> 0 Then
  Call MsgBox("Error 0x" & Hex(Err.Number) & " " & Err.Description) 
Else
  Call MsgBox("Data compressed successfully!") 
End If 

On Error Goto 0

Set xComp = Nothing