Find text and replace

As part of an Excel macro, I'm trying to find if a string has a specific word in it and then, if it does, copy the string to another cell without some of the words in the cell.

I've tried this (below) which works ok, BUT if the address you see below is not EXACTLY the same which is often the case with a moved space or a deleted comma etc, the trim function will not work of course. I know there must be a way to do some kind of wildcard solution, but darned if I can figure it out.

Here's what I've tried so far:

Code:

---

grape = Cells(mirow, micol)

---

Code:

---

If InStr(grape, "San Ramon") Then
bk = Trim(Replace(grape, "(211 Old Crow Canyon Rd#19, San Ramon Ca 94583)", " "))
Cells(mirow, micol +1) = bk

---

I've posted this to another site but cannot figure out how to get a link.

The other link

https://www.mrexcel.com/forum/excel-...lace-text.html