Private Declare Function LzmaCompress Lib "LZMA.dll" (Dest As Any, destLen As _
  Long, Src As Any, SrcLen As Long, _
 outProps As Any, outPropsSize As Long, Level As Long, dictSize As Long, lc As _
 Long, lp As Long, pb As Long, _
 fb As Long, numThreads As Long) As Long
 
sub TestLZMA()
Dim ret As Long
Dim sFile1 As String, sFile2 As String
Dim iFn1 As Integer, iFn2 As Integer
Dim bIn() As Byte, bOut() As Byte
Dim iLenIn As Long, iBufLen As Long
Dim bAny() As Byte
 
sFile1 = "In.txt"
sFile2 = "Out.txt"
 
iFn1 = FreeFile
 
Open sFile1 For Binary Access Read Lock Write As iFn1
 
iFn2 = FreeFile
 
Open sFile2 For Binary As iFn2
 
ReDim bIn(LOF(iFn1))
Get #iFn1, , bIn()
 
iLenIn = UBound(bIn) + 1
iBufLen = iLenIn + (iLenIn * 0.01) + 600
 
ReDim bOut(iBufLen)
ReDim bAny(iBufLen)
 
ret = LzmaCompress(bOut(0), iBufLen, bIn(0), iLenIn, bAny(0), 5, 5, 0, 3, 0, 2, _
  32, 2)
 
Put #iFn2, , bOut()
 
End Sub