was zum teufel soll das ganze machen ?
du willst alle elemente eines arrays in einer datei speichern ?
das geht viel einfacher, als mit deinen 3 funktionen.
das zum speichern:
dim speicher
for each s as string in myarray
speicher &= s & vbnewline
next
io.file.writealltext("C:\myarray.txt",speicher)

das zum auslesen:
myarray = split(io.file.readalltext("C:\myarray.txt"),vbnewl ine)

is jetze ausm kopf =$$