Well I got it to work. I ended up doing this...
Function RemoveCharacters(x As String) As String
x = Replace(x, """", "''")
x = Replace(x, "+", " plus ")
x = Replace(x, "/", " ")
x = Replace(x, ",", " ")
x = Replace(x, "&", " and ")
RemoveCharacters = x
End Function
Instead of this...