Array abspeicherungs Problem

Hi community

Ich bin gerade dabei ein eigenes Packprogramm zu erstellen, mein Problem ist jetzt leider dass beim auslesen der verpakten dateien immer von meiner datei nur 1 ergebniss und ein leeres ergebniss vorliegt

Hier mein teil in dem ausgelesen wird

Dim $array[1]

$read = FileRead($package)
$split = StringSplit($read, "|")
If $split[0] > 0 Then
For $i = 0 To $split[0]
$split1 = StringSplit($split[$i], "$")
If $split1[0] > 1 Then
$ubbound = UBound($array) +1
ReDim $array[$ubbound +1]
$array[$ubbound] = $split1[2]
return $array
EndIf
Next
EndIf

Hier noch der in halt des Packets

0x3B64666173646661736466617364662061736420202020746573742E61686B0D0A$test1.txt|0x746574737465737473657473656B74616AF6736C646B666A61F673646C6B66616AF6736C646B666A61F6736C646B666A61F6736C646B666A617364F666616C736B64666A61F6736C646B666A61F6736C646B666A61202020746573742E747874$test.txt|

Das ganze ist noch nicht fertig
das entpacken und verpacken funktioniert bereits
bei mehreren dateien ist die datei auch kleiner als die einzel dateien

In $package wird jeglich der pfad zur datei mit dem inhalt des packets(siehe oben) abgespeichert

Ich hoffe mir kann jemand helfen

MFg.Simon

Ich verwende einmal $split und einmal $split1

Meine vermutung wäre das es mit der berechnung nicht stimmt
da ich immer mit array display folgendes bekomme

[0]
[1]
[2] test.txt

Ich kann aber nicht sagen wo da ich schon oft die einsen mit minus versehen habe und weggelassen habe