Dim ZeilenArray() As String
 
Private Sub Form_Load()
    Dim fNr As Long
    Dim zeile As String
 
    Dim zaehler As Long
    fNr = FreeFile()
 
    Open App.Path & "\test.txt" For Input As #fNr
    While Not EOF(fNr)
        Line Input #fNr, zeile
        zaehler = zaehler + 1
        ReDim Preserve ZeilenArray(zaehler - 1)
        ZeilenArray(zaehler - 1) = zeile
    Wend
 
End Sub