String

FUNCTION String ( Source AS String [ , Level AS Integer, AllowGrow AS Boolean ] ) AS String

This function returns a string compressed using the algorithm defined by Type property.

...
Dim Cz As New Compress
Dim Buf As String 

Cz.Type = "bzlib2"

Buf = Cz.String(SourceString,Cz.Max,FALSE)

IF Len(Buf) < Len(SourceString) THEN
    PRINT "Compression successfully finished"
ELSE
    PRINT "Unable to compress that string"
END IF
...