こんな感じでどうでしょう｡
読み込むﾌｧｲﾙや保存先のﾌｧｲﾙは､ｻﾌﾞﾙｰﾁﾝ hogeConv の引数を変更して下さい｡

Option Explicit

'--- ﾒｲﾝﾌﾟﾛｸﾞﾗﾑ
Sub main()
  '第1引数＝対象ﾌｫﾙﾀﾞ
  '第2引数＝拡張子
  '第3引数＝保存先ﾊﾟｽ名＋ﾌｧｲﾙ名
  '第4引数＝合致を検知するｶﾗﾑ番号
  '第5引数＝合致する文字列
 Call hogeConv("C:/test/", "txt", "C:/test/hozon.csv", 2, "2")
End Sub

'----ﾌｧｲﾙ探索＋ﾌｧｲﾙ処理
Sub hogeConv(path As String, ext As String, outfname As String, num As Integer, str As String)
 Dim fcol As Object, re As Object
 Dim flist As Variant, remat As Variant
 Dim pat As String, fname As String
 Dim flag As Boolean

 Kill outfname

  '処理対象ﾌｧｲﾙ探索＋処理実行
 Set fcol = CreateObject("Scripting.FileSystemObject").GetFolder(path).Files
 Set re = CreateObject("VBScript.RegExp")
 pat = "\." & ext & "$"
 With re
 .Pattern = pat
 .IgnoreCase = True
 .Global = True
 For Each flist In fcol
 Set remat = .Execute(flist.Name)
 If remat.Count > 0 Then
 flag = hogeFile(path, flist.Name, outfname, num, str)
 End If
 Next flist
 End With
 Set re = Nothing
 Set fcol = Nothing
End Sub

'---1ﾌｧｲﾙ処理
Function hogeFile(path As String, infname As String, outfname As String, num As Integer, str As String) As Boolean
 Dim buf As String, cols() As String

 Open path & infname For Input As #1
 Open outfname For Append As #2
 Do Until EOF(1)
 Line Input #1, buf
 cols = Split(buf, ",")
 If (cols(num - 1) = str) Then
 Print #2, infname & " " & buf
 End If
 Loop
 Close #1
 Close #2
 hogeFile = True
End Function

ﾃｷｽﾄ処理であれば EXCEL を使用する必要もないと思いますので､VBS での
実装例ですが､VBA への移植もWSCript とある部分を変更する程度で可能だと思います｡

下記をﾒﾓ帳等に貼り付け適当な名前(PhooSan.vbs)として保存し､このﾌｧｲﾙに処理したいﾌｫﾙﾀﾞをﾄﾞﾛｯﾌﾟすればﾌｫﾙﾀﾞ内のﾌｧｲﾙを処理します｡

Option Explicit

'//--------------------------------------------------------------------
'// ｽｸﾘﾌﾟﾄに ﾃﾞｰﾀの入ったﾌｫﾙﾀﾞをﾄﾞﾛｯﾌﾟして実行
'//--------------------------------------------------------------------
If WScript.Arguments.Count <> 1 Then
 WScript.Echo "ﾌｫﾙﾀﾞを指定してください｡"
 WScript.Quit
End If

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")

Dim resultFilePath
'// 出力ﾌｧｲﾙ名
resultFilePath = fso.GetFile( WScript.ScriptFullName ).ParentFolder.Path _
 & "\result" & Replace( Replace( Replace( FormatDateTime(Now()), "/", ""), ":", "" ), " ", "_" ) & ".txt"

Dim resultFile
Set resultFile = fso.CreateTextFile( resultFilePath )

Dim txtFile
Dim Lines
Dim Line
Dim Data
For Each txtFile In fso.GetFolder( WScript.Arguments.Item(0) ).Files
 If UCase( fso.GetExtensionName( txtFile.Path ) ) = "TXT" Then
 Lines = Split( fso.OpenTextFile( txtFile ).ReadAll(), vbNewLine )
 For Each Line In Lines
 Data = Split( Line, "," )
 If UBound( Data ) >= 1 Then
 If Trim( Data(1) ) = "2" Then
 resultFile.WriteLine txtFile.Name & " " & Line
 End If
 End If
 Next
 End If
Next

'// 処理結果をﾒﾓ帳で表示
CreateObject("WScript.Shell").Run "notepad.exe """ & resultFilePath & """"