You just have a little too much. :)

Replce your quoteIt = line with just:

quoteIt = Replace(sStr, sDQuote, sQuote)

Cheers.