So we have this central piece of "crypto" code

Code:
Public Sub InitLUT()
Dim X As Long, Y As Long, bChr As Byte

For X = 0 To 255
    baLUT(X) = X
Next X

Rnd -1
Randomize 1234

For X = 1 To 255
    Y = Int(X * Rnd)
    If X <> Y Then
        bChr = baLUT(X)
        baLUT(X) = baLUT(Y)
        baLUT(Y) = bChr
    End If
Next X

For X = 0 To 255
    backLUT(baLUT(X)) = X
Next X
End Sub
This is based on seeding the VB's built-in pseudo-random number generator with preset starting seed in the "Randomize 1234" line and generating an infinite entries (more like only 64k ones) of randomness to initialize a couple of LUTs (forward and back) so that I/O byte-arrays can be shuffled fast. Similar Caesar ciphers have been broken since millenia and are nowhere near WW2 Enigma strength (which was broken 80 years ago too). . . Anyway.

I couldn't find the compression bits but what exactly is not working here?

cheers,
</wqw>