>>61
Dim csvRecords As New ArrayList

While tr.EndOfData
　oneLine = tr.ReadFields()
　csvRecords.Add(oneLine)
End While

tr.Close()

'最後の行から最初の行へ その1
'csvRecords.Reverse() '要素の順序を反転

'最後の行から最初の行へ その2
For MyRow = csvRecords.Count - 1 To 1 Step -1

Next MyRow