Public Function DecodeLZW(EingArr() As Long, Alphabet() As String) As String
    Dim Temp1 As Long, Tabelle() As String, AlphabetUbound As Long
    Tabelle = Alphabet
    AlphabetUbound = UBound(Alphabet)
    ReDim Preserve Tabelle(UBound(Alphabet) + UBound(EingArr)) As String
 
    DecodeLZW = Tabelle(EingArr(0))
    For Temp1 = 1 To UBound(EingArr)
        Tabelle(AlphabetUbound + Temp1) = Tabelle(EingArr(Temp1 - 1)) & Left( _
          Tabelle(EingArr(Temp1)), 1)
        DecodeLZW = DecodeLZW & Tabelle(EingArr(Temp1))
    Next
End Function

Private Sub Command1_Click()
    Dim Temp1 As Long, Alphabet(29) As String
    For Temp1 = 0 To 25
        Alphabet(Temp1) = ChrW(97 + Temp1)
    Next
    Alphabet(26) = "ä"
    Alphabet(27) = "ö"
    Alphabet(28) = "ü"
    Alphabet(29) = " "
 
    Dim Eingabestr As String, EingArr() As Long, EingArrStr() As String
    Eingabestr = "5; 8; 18; 2; 7; 4; 17; 18; 29; 5; 17; 31; 33; 38; 40; 18; 8;" & _
      "35; 19; 35; 43; 8; 19; 25; 4; 50; 18; 18; 19; 55; 46; 32; 34; 55; 42;" & _
      "39; 51; 46; 17; 48; 63; 7; 30; 61; 65; 10; 0; 3; 4; 11; 11; 4; 13"
    EingArrStr = Split(Replace(Eingabestr, " ", ""), ";")
    ReDim EingArr(UBound(EingArrStr))
    For Temp1 = 0 To UBound(EingArrStr)
        EingArr(Temp1) = CLng(EingArrStr(Temp1)) 'war zu faul, um die Zahlen 
        ' anders einzugeben, deshalb konvertierung von string nach long
    Next
    MsgBox DecodeLZW(EingArr(), Alphabet())
    ' > fischers frisch frisierter fritze frisst frisiesche frisch fritierte 
    ' frischfischfrikadellen
End Sub