Manage quotes inside string VBA

Question

I trying to insert to Access Table some values that I getting from another table, the problem is that some values comes with quotes and double quotes inside the string, like

Answer 1

From memory I think you just need to double them up to look like this:

str1 = "Non-fusible sectionalizing ""green' low rise switch."

You can perform a Replace on the string using Chr(34) - the " character:

str1 = Replace(str1, Chr(34), Chr(34)&Chr(34))