Const ForReading = 1
Dim i
Dim arrText
Dim strNextLine
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
' Öffnen der Datei zum Lesen
Set objTextFile = objFSO.OpenTextFile _
    ("c:\beispiel.txt", ForReading)
 
' Datei bis zum Ende lesen (Schleife bis EOF)
Do Until objTextFile.AtEndOfStream
	' zeilenweise lesen
    strNextLine = objTextFile.Readline
	i = i + 1
	' Array neu dimensionieren
	ReDim preserve arrText(i)
	' gelesene Zeile in das hinzugekommene Element einfügen
	arrText(i) = strNextLine
Loop

ciao
Elwood

Wer später bremst, ist länger schnell