ASP Replace() For Multiple Items In One Execution

I was wondering if anyone knows if there is a way to replace multiple items in ASP in a single execution of the function?

Consider this issue:

mytext = "this is not it"
mytext = Replace(mytext, "s", "<strong>s</strong>)
mytext = Replace(mytext, "n", "<strong>n</strong>)

This would produce:
thi<stro<strong>n<s/trong>g>s</stro<strong>n</strong>g> i<stro<strong>n</strong>g>s</stro<strong>n</strong>g> <strong>n</strong>ot it

While it would ideally produce: Code: