Reading values from a text file

Hi Leith, Thanks for your quick response. Here the above code is giving the problem in the following loop:

     For r = 1 To count
      FileArray(r) = "req_par" & CStr(r) & ".txt"
    Next

so I have changed the above code as below and it is working:

 Sub CopyFilesToArray()

  Dim Data As Variant
  Dim FileData() As Variant
  Dim FileArray As Variant
  Dim FileName As Variant
  Dim FilePath As String
  Dim I As Long, J As Long
  Dim req_par(1 To 50) As String
  
    count = 2
    
    ReDim FileArray(count - 1) 
    
    FilePath = "C:\"

    For r = 0 To count - 1
    FileArray(r) = "req_par" & CStr(r + 1) & ".txt"
    Next
    
    ReDim FileData(1 To 50, 1 To UBound(FileArray) + 1)

    For Each FileName In FileArray
        J = J + 1
        FileName = FilePath & FileName
        Open FileName For Input As #1
          Do While Not EOF(1)
            I = I + 1
            Input #1, Data
            FileData(I, J) = Data
          Loop
        Close #1
        I = 0
      Next FileName
      
End Sub

Thanks
Krish T

You are genius Leith. Solved my problem. Thanks a lot. Really helpful to me.

Thanks
Krish T

No problem Leith. Once again Thanks to you.