Function LZW_decode(ByRef Alphabet() As String, ByRef Code() As Integer, ByRef _
  AnzahlZeichenAlphabet As Integer, ByVal LaengeCode As Integer)
 
Dim rueckgabeArray() As String
Dim rueckgabe As String
Dim i As Integer 'Laufvariable
rueckgabe = ""
 
ReDim Preserve rueckgabeArray(0 To LaengeCode)
 
For i = 0 To (LaengeCode - 1)
 
    rueckgabeArray(i) = Alphabet(Code(i))   'Zeichen anfügen
    AnzahlZeichenAlphabet = AnzahlZeichenAlphabet + 1   'Alphabetzeichen erhöhen
 
    If i <> 0 Then
        ReDim Preserve Alphabet(0 To AnzahlZeichenAlphabet)
        Alphabet(AnzahlZeichenAlphabet) = rueckgabeArray(i - 1) + _
          rueckgabeArray(i)
    End If
    rueckgabe = rueckgabe + rueckgabeArray(i)
 
Next i
 
LZW_decode = rueckgabe
 
 
End Function

____________________________________________________
"Mein Leipzig lob' ich mir, es ist ein Klein-Paris" (aus: "Faust")