Try this
Hey there,
Try this:
Function ExcludeApQu(MyStr As String) As String
'ExcludeApQu removes apostrophes (') and quotes (") from a string
ExcludeApQu = Replace(MyStr, Chr(34), "")
ExcludeApQu = Replace(ExcludeApQu, Chr(39), "")
End Function
I use it in a form my customer use...