Dim compressor As new XceedStreamingCompressionLib.XceedStreamingCompressionClass() 

compressor.License( "Your license key" ) 

compressor.CompressionFormat =
                   New XceedStreamingCompressionLib.XceedBZip2CompressionFormatClass()      

Dim sourceData As Object = "This is the data to compress compress compress" 

Try
  Dim compressedData As Object = compressor.Compress( sourceData, true )
Catch except As System.Runtime.InteropServices.COMException
  MessageBox.Show( except.ToString() )
End Try

Dim compressor As New XceedStreamingCompressionLib.XceedStreamingCompressionClass() 

compressor.License( "Your license key" ) 

compressor.CompressionFormat =  New XceedStreamingCompressionLib.XceedBZip2CompressionFormatClass()

Try 
  Dim decompressedData As Object = compressor.Decompress( compressedData, true )
  MessageBox.Show( System.Text.Encoding.Unicode.GetString( CType( decompressedData, byte() ) ) )
Catch except As System.Runtime.InteropServices.COMException
  MessageBox.Show( except.ToString() )
End Try