'Erzwingt Variablendeklaration
Option Explicit
'Konstanten und Variablendeklaration
Const DATEIPFAD = "Data.txt"
Const LESEN = 1
Dim Datei, arr(), Index
 
'Öffnet die angegebene Datei zum Lesen. Das zurückgegebene Textstream-Objekt 
' wird "Datei" zugewiesen.
Set Datei = CreateObject("Scripting.FileSystemObject").OpenTextFile(DATEIPFAD, _
  LESEN)
'"Index" initialisieren
Index = 0
'Schleife solange durchlaufen bis sich der Dateizeiger am Ende einer 
' TextStream-Datei befindet.
Do Until Datei.atEndOfStream
  'Array wird neudeklariert und die Daten in einem bestehenden Array bleiben 
  ' erhalten.
  ReDim Preserve arr(Index)
  'Liest eine ganze Zeile  aus einer TextStream-Datei und speichert die 
  ' zurückgegebene Zeichenfolgen im Arrayelement    
  arr(Index) = Datei.ReadLine
  'Inkrementiert "Index"
  Index = Index + 1
Loop
'geöffnete TextStream-Datei schließen
Datei.Close