Wildcard search of dictionary

Question

After searching google and SO, I see that there is a way for me to search a dictionary for an existing key:

dict.exists(\"search string\")

Answer 1

this method can help you with wildcard searching in Dictionary

Sub test()
Dim Dic As Object: Set Dic = CreateObject("Scripting.Dictionary")
Dim KeY, i&: i = 1
For Each oCell In Range("A1:A10")
    Dic.Add i, Cells(i, 1).Value: i = i + 1
Next
For Each KeY In Dic
    If LCase(Dic(KeY)) Like LCase("Search*") Then
        MsgBox "Wildcard exist!"
        Exit For
    End If
Next
End Sub