[Resolvido]Buscar texto dentro da String e retornar o valor para um textBox

Boa noite Srs.
Estou desenvolvendo uma tela para buscar controles, textbox, comboboxs e etc...


porém o que eu não consigo fazer é filtrar alguma palavra dentro da String,

por exemplo, eu buscar por btn , ele deveria me trazer apenas as palavras que contém btn...

For Each ctl In Forms(frmName).Controls
If TypeOf ctl Is Listbox Then
strObj = strObj & "" & ctl.Name & ""
strObj = strObj & "" & vbCrLf & ""
End If
Next

If IsNull(Me.txt_pesqobj) Or Me.txt_pesqobj = "" Then

Me.txt_objetos.Value = strObj

Else

'// aqui seria o retorno da busca dessa palavra dentro da String strObj

'// após a busca ele retornaria o valor no txt_objetos

Código:

For Each ctl In Forms(frmName).Controls
    If TypeOf ctl Is ListBox Then
        If ctl.Name Like "*" & Me.txt_pesqobj.Value & "*" Then
            strObj = strObj & "" & ";" & "" & ctl.Name
                If Left(strObj, 1) = ";" Then strObj = Right(strObj, Len(strObj) - 1)
            Me.txt_objetos.Value = strObj
        End If
    End If
Next

Boa tarde JPaulo, espero que esteja tudo ótimo com você!

Amigo meu código funciona com vários For Each, tanto de comboboxs, como de textbox como de outros controles,

porém eu tenho umas restrições é claro, pra não buscar itens que eu não quero relacionado a sistema, acessos etc

como eu fiz de uma forma organizada, eu Abro um For Each, e depois fecho, e escrevo o nome dos proximos controles, Tipo TextBox, ComboBox, etc.

Existe alguma forma de fazer o Like com o montante total ?

Resolvido!

Adaptei o código ficou bom demais obrigado JPaulo.