you are welcome.

please use code tags when posting your code to the thread. When you click # button in Quick Reply code tags (without spaces) will be inserted.

[ CODE ]paste your code between these tags[ /CODE ]

you can find a number of examples about reading a txt file content here at VBAX.

below worked for me:

Sub ReadTextFile_FindString_WriteToCell()

    Dim strPath As String, strFiles As String, strTxtFile As String    Dim strToFind As String, strToWrite As String
    Dim cella As Long
    
    strPath = "C:\prova\"
    strToFind = "Read BRT Luminance"
    cella = 0
    
    If Dir(strPath & "*.txt") = "" Then 'test for existence of txt files
        MsgBox "No txt files in the directory: " & strPath
        Exit Sub
    End If
        
    strFiles = Dir(strPath & "*.txt")
    Do Until strFiles = ""
        strTxtFile = CreateObject("Scripting.FileSystemObject").OpenTextFile(strPath & strFiles).ReadAll
        strToWrite = Mid(strTxtFile, InStr(strTxtFile, strToFind) + 31, 9)
        ActiveCell.Offset(cella, 1).Value = strToWrite
        cella = cella + 1
        strFiles = Dir
    Loop


End Sub