VB 6.0 Compressed File Text by Algoritma Shannon-Fano

Dear All....
:(
I want to create a VB 6 program. Look like the picture above program. Can anyone help me to find the Source Code program?

Compressed and Decompress File txt, doc, rtf, html by algoritma Shanno-fano

Thanks

Attached Images