excel vba怎么搜索某目录里的子目录名称是否包含某关键字？并返回搜到的个数

excel vba如何搜索某目录里的子目录名称是否包含某关键字？并返回搜到的个数？
不是搜文件的名称，是搜目录的名称。


例如C:\TEST\里面有5个folder:
QWE
ASD_1
ASD_2
ASD_3
TYU

并且，C:\TEST\ASD_1\里含有一个ASD.TXT文件

然后我要的结果是：我搜索关键字“ASD”，返回的结果为3（搜到3个folder name包含“ASD”的目录，但不搜里面的文件）
------解决方案--------------------
多层尝试搜索可以使用函数递归的方法来解决：

Public Fso As Object

Public Str As String


Sub getFldList()

    Set Fso = CreateObject("Scripting.FileSystemObject")

    Fldnm ("C:\TEST")

    MsgBox Str

End Sub


Function Fldnm(pth$)

    Dim Fld

    

    For Each Fld In Fso.getfolder(pth).subfolders

        If Fld.Name Like "*ASD*" Then Str = Str & Fld.Name & " "

        Fldnm (Fld)

    Next

End Function