Private Function OpenTheFile(FileName As String)
    If FileName = "" Then Exit Function
 
    Dim unPAKedFile As String
    Dim file As Long
    Dim sLine As String
    file = FreeFile
 
    Dim Buffer() As Byte
    Open FileName For Binary As #1
        ReDim Buf(LOF(1) - 1)
        Get #1, , Buffer()
    Close #1
 
    'TODO: irgendwie den 16-byte header wegbekommen
 
    Open App.Path & "t.t" For Binary Access Write As #1
        Put #1, , Buffer()
    Close #1
 
    engine.InputFile = App.Path & "t.t"
    engine.OutputFile = App.Path & "temp.temp"
    engine.Decompress
 
    Open App.Path & "temp.temp" For Input As #1
    While Not EOF(1)
        Line Input #1, sLine
        editbox.Text = editbox.Text & sLine & vbCrLf
    Wend
    Close #1
 
    Kill App.Path & "t.t"
    Kill App.Path & "temp.temp"
End Function