The same method could be pushed further.
sMessage = Replace(sMessage, "[Keyword]", Value)