Dim F As Integer
Dim nSize As Long
Dim nCount As Long
Dim sLines() As String
 
nCount = -1: nSize
 
' Textdatei öffnen
F = FreeFile
Open "Datei.txt" For Input As #F
 
' Zeilenweise in Array einlesen
While Not Eof(F)
  nCount = nCount + 1
 
  ' Array-Größe ggf. verdoppeln
  If nCount > nSize Then
    nSize = 2 * nCount
    ReDim Preserve sLines(nSize)
  End If
 
  ' Zeile einlesen
  Line Input #F, sLines(nCount)
Wend
Close #F
 
' Überflüssigen Speicher freigeben
ReDim Preserve sLines(nCount)

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de