VBA code to search Sub-Folder containing String

Hi,

Please help me with a VBA code to open a sub-folder contains string "TD-2646" in the full name "TD-2464 CE Braking Stability"

 

Sub SubFolder_Search()

    Dim SubFolderString As String
    SubFolderString = "TD-2464"
    Shell "explorer.exe" & " " & "C:\Test\ & SubFolderString, vbNormalFocus"

End Sub