网上下一代码，运行出现内存溢出。在论坛找了很多贴子也不得要领

[zqonline]

Public Sub DecompressByte(TheData() As Byte)

Dim OrigLen As Long
Dim BufferSize As Long
Dim TempBuffer() As Byte

'Get the original size
Call CopyMem(OrigLen, TheData(0), 4)

'Create a buffer to hold the uncompressed data
BufferSize = OrigLen
BufferSize = BufferSize + (BufferSize * 0.01) + 12
ReDim TempBuffer(BufferSize)

'Decompress data
Call uncompress(TempBuffer(0), BufferSize, TheData(4), UBound(TheData) - 4 + 1)

'Remove redundant data
ReDim Preserve TheData(0 To BufferSize - 1)
CopyMemory TheData(0), TempBuffer(0), BufferSize

End Sub