Per motivi di tempo, ho trovato una soluzione alternativa, a mio avviso poco ortodossa, ma funzionante:

For Each file In files
Dim lines() As String
Dim ss As String
Dim j As Integer
lines = IO.File.ReadAllLines(file)
Dim strSplit() As String
For i = 1 To lines.Length - 1
ss = lines(i)
strSplit = ss.Split(",")
For j = 0 To strSplit.Length - 1
record_str = record_str & strSplit(j) & ControlChars.NewLine
Next j
MsgBox(record_str)
record_str = "Record" & ControlChars.Cr
Next i
Next