No me quedó claro el uso de un combobox... te dejo la instrucción para determinar si un texto se encuentra dentro de una cadena.
Instr(1, cadena, textoBuscado)
¿Quizás tu idea es que la palabra a buscar la tome de un combobox?
En ese caso sería algo así, sino aclara un poco más la consulta:
Sub prueba()
'x Elsamatilde
textoBuscado= combobox1.Value 'texto seleccionado del combo
cadena = Range("A5") 'celda donde se busca el texto
If InStr(1, cadena, textoBuscado) > 0 Then
'opción: mostrar en un textbox toda la cadena
textbox1 = cadena
Else
textbox1 = ""
End If
End Sub