As for how, here is some code that might provide some ideas.
Code:
'Reference Microsoft Scripting Runtime
Dim fso As New FileSystemObject
Dim txsFileChars As TextStream
Dim objMyTextFile As File
Dim strFileName As String
Dim strFilePath As String
Dim strReadLine As String
strFilePath = "C:\Test\TextFiles\"
strFileName = "SmallTextFile.txt" 'You will want to create a Folder object and enumerate file objects
Set objMyTextFile = fso.GetFile(strFilePath & strFileName)
Debug.Print objMyTextFile.Name
Set txsFileChars = objMyTextFile.OpenAsTextStream(ForReading)
While txsFileChars.AtEndOfStream = False
strReadLine = txsFileChars.ReadLine
Debug.Print strReadLine
Wend