Option Explicit
Sub grossesdatenfeld()
Dim i As Long
Dim t
Dim s As String
Const maxFelder = 500000 'Anzahl der einzulesenden Zeilen bzw. _
die gewünschte Größe Deines Datenfeldes
ReDim t(1) 'um eine Redimensionierung zu ermöglichen
'Zuerst die Datei erstellen
Open "test.dat" For Output As #1
For i = 1 To maxFelder
Print #1, "Zeile " & i
Next
Close #1
MsgBox "Daten vorbereitet, werden nun eingelesen"
'Einlesen der Datei Zeile für Zeile. Code ist langsam,
'weil das Datenfeld Schritt für Schritt vergrößert werden muß
Open "test.dat" For Input As #1
i = 0
Do
i = i + 1
Line Input #1, s
ReDim Preserve t(1 To i)
t(i) = s
Loop Until EOF(1)
MsgBox "Einlesen Zeile für Zeile" & vbCrLf & "Obergrenze des Datenfeldes: " & UBound(t)
Close #1
'Einlesen auf einen Schlag. Das Einlesen an sich dauert genauso lange wie oben,
'aber da das Datenfeld nur 1x durch die Split- anweisung dimensioniert wird,
'wird der Gesamtvorgang enorm beschleunigt
Open "test.dat" For Binary As #1
s = Space(LOF(1))
Get #1, , s
t = Split(s, vbCrLf)
MsgBox "Einlesen auf einen Schlag" & vbCrLf & "Obergrenze des Datenfeldes: " & UBound(t)
Close #1
Kill "test.dat"
End Sub