ZEXTERN int ZEXPORT uncompress OF((Bytef *dest,   uLongf *destLen,
                                   const Bytef *source, uLong sourceLen));

Declare Function uncompress Lib "zlib1.dll" (ByRef dest As String, ByVal _
  destLen As Long, _
                                   ByRef source As String, ByVal sourceLen As _
                                   Long) As Long

Dim test As String
Dim ziel As String
 
ziel = Space(250)
 
 
Open "c:\dat.txt" For Input As #1
While Not EOF(1)
    Line Input #1, test
Wend
Close #1
 
uncompress ziel, 250, test, Len(test)
 
MsgBox test