læser txt filer ind i array

HEj ,

jeg har en kode der læser alle text filer fra en mappe ind i  mit excel ark , jeg ville høre om det ikke var muligt at læse dem direkte ind i et array i stedet for ?

min kode ser således ud.


----start

Dim FS As FileSearch
Dim FilePath As String, FileSpec As String
Dim i As Long, x As Long
Dim lFNo As Long
Dim tekst As String
Dim temp


FilePath = "C:\michael\EksOpgDataE06\data\reservationer"
FileSpec = "*.csv"
'***************************************

   
   
   
   
Set FS = Application.FileSearch
With FS
    .LookIn = FilePath
    .Filename = FileSpec
    .Execute
    If .FoundFiles.Count = 0 Then
        MsgBox ("Ingen filer fundet")
        Exit Sub
    End If
Sheets("data").Select
    ActiveCell.Cells.Select
    Selection.ClearContents
    ActiveCell.Select
End With
x = 1
For i = 1 To FS.FoundFiles.Count
    lFNo = FreeFile
    Open FS.FoundFiles(i) For Input As #lFNo
    While Not EOF(lFNo)
        Line Input #lFNo, tekst
        If Left(tekst, 1) = "I" Then GoTo ee
        x = x + 1
     
        temp = Split(tekst, ",")
        ActiveSheet.Range(Cells(x - 1, 1), Cells(x - 1, UBound(temp))) = temp
ee:
temp = FS.FoundFiles(i)
    Wend
  'Shell ("xcopy /r " & temp & " C:\michael\EksOpgDataE06\data\reservationer\kørt\")

  Close #lFNo
'  Set fso = CreateObject("Scripting.FileSystemObject")
'fso.movefile temp, "C:\michael\EksOpgDataE06\data\reservationer\kørt\" & Right(temp, 21)
   
Next