getting string/data from notepad

Sub Example()
    Dim FileName As String
    
    FileName = Application.GetOpenFilename
    
    MsgBox GetItem("MIDlet-Version:", FileName)
    MsgBox GetItem("MIDlet-Vendor:", FileName)
End Sub

Function GetItem(Label As String, FileName As String) As String
    Dim Text As String
    
    Open FileName For Input As #1
        Do Until EOF(1)
            Line Input #1, Text
            If InStr(Text, Label) Then
                GetItem = CStr(Trim(Split(Text, ":")(1)))
                Close #1
                Exit Function
            End If
        Loop
    Close #1
    
End Function

Sub fileloop()
    Dim MyDir As String
    Dim strPath As String
    Dim vaFileName As Variant
    Dim rngSrc As Range
    Dim NumRows As Integer
    Dim ThisRow As Integer
    Dim ThatRow As Integer
    Dim FirCol As Integer
    Dim BookA As Worksheet
    
    
    With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False
        .Show
        If .SelectedItems.Count > 0 Then
            txt2 = .SelectedItems(1)
        End If
    End With
    
    
    MyDir = txt2
    strPath = MyDir
    Set rngSrc = ActiveSheet.Range("S2:S200") 'list of files I want opened
    NumRows = rngSrc.Rows.Count
    ThisRow = rngSrc.Row
    ThatRow = ThisRow + NumRows - 1
    FirCol = rngSrc.Column
    
For J = ThisRow To (ThatRow - 1) 'It doesnt loop through S2 to S200.why?
    If Cells(J, FirCol) > "" Then 'check if cells is empty
        With Application.FileSearch
        .NewSearch
        .LookIn = strPath
        .SearchSubFolders = False
        .filename = Cells(J, FirCol) ' Search for cell-specific file
        Open_File
        End With
    End If
Next J
End Sub


Private Sub Open_File()

With Application.FileSearch
        If .Execute > 0 Then

           For Each vaFileName In .FoundFiles
                'open the workbook
               Workbooks.Open vaFileName
        
                'perform something here
               With ActiveWorkbook
                    '.Worksheets("Sheet1")
                    'maybe I can get the version here?
                    '.Close
                End With
            Next
        End If
   End With
End Sub