would there be any way, that i could replace a word in a string containing about 10 words, if it had it

Dim abc as string
Dim def as string
dim ghi as string

abc = "This is the message"
def = "*Message"
ghi = "Comment"

if lcase(abc) like lcase(def) then
How would i replace the "Message" in abc with "Comment" from ghi?

abc = Replace(abc, def, ghi)

Thanks!