Compress string

We have a string with a length of 64 chars. The string has alphanumeric contents usually from Ascii Code 0 to asciicode 128. We need a Function to compress to the minimum this string and another function to be decompressed. The idea is to decrease the size of the string. The input to the function is a string var and the output a string too. The code should be written in VB6. ## Deliverables 1) Complete and fully-functional working program(s) in executable form as well as complete source code of all work done. 2) Installation package that will install the software (in ready-to-run condition) on the platform(s) specified in this bid request. 3) Exclusive and complete copyrights to all work purchased. (No GPL, 3rd party components, etc. unless all copyright ramifications are explained AND AGREED TO by the buyer on the site). ## Platform PC VB6