Actually, your issue is not with an apostrophe, it is with the single quote character. In fact, what you should be using all the time, except for quoted strings, is the apostrophe (lower case tilde on most keyboards).
Try something like:
sText = Replace(sText,"'","`")
sText...