displaying certain line of text from notepad

[blackguard4]

hi, im new to VBA
im trying to make a list of subfolders and list it on excel
- list all subfolders in excel
-- inside each subfolder there is a file that is not .txt but can be opened with notepad, the file has the same name on all the folders
-- need to extract the 41th-60th character from the notepad and display it next to its corresponding folder in excel , starting from E3, disregard line 1-40 and anything after 60

Sub ListFoldersAndInfo()

Dim FSO As Object
Dim Folder As Object
Dim FolderName As String
Dim R As Long
Dim Rng As Range
Dim SubFolder As Object
Dim Wks As Worksheet

FolderName = "E:\TestResults"

Set Wks = Worksheets("Sheet2")
Set Rng = Wks.Range("A2")
Wks.UsedRange.Offset(1, 0).ClearContents

Set FSO = CreateObject("Scripting.FileSystemObject")

Set Folder = FSO.GetFolder(FolderName)
R = 1
Rng.Cells(R, 1) = Folder.Name
Rng.Cells(R, 2) = Folder.Path
Rng.Cells(R, 3) = Folder.Size

For Each Folder In Folder.SubFolders
R = R + 1
Rng.Cells(R, 1) = Folder.Name
Rng.Cells(R, 2) = Folder.Path
Rng.Cells(R, 3) = Folder.Size
Next Folder

Set FSO = Nothing

End Sub the help is much appreciated,
thankyou