>>20　適当にレス。


突っ込み1　&strName&" をチェックしています"
　→「strName&」 は間違いかも(変数接辞や数値接辞の&はLong型の暗黙の宣言子)。正しくは「strName &」

突っ込み2　SearchedTS = Nothing then
　→上で文字列を代入しているか何も入っていないのでObject型にはならないと思う。(期待する値も文字列型でしょうからそもそも間違い)
　そのため比較式の答えは常にFalseになるでしょう。正しくは「SearchedTS = "" then」または「SearchedTS = vbNullString then」

突っ込み3　FileList = Fso.GetFolder(TSSearchFolder)
　→先頭にSetが抜けてます。これだとデフォルトのプロパティであるNameの値つまり文字列型の"D:\"が入る気がする。

突っ込み4 ひとつ見つかればいいなら見つかったあとループを中断すべき。
　→Exit For を追加。