Function AddSlashes(Text) Dim MyString As String MyString = Replace(Replace(Replace(Text, "", "\"), "'", "'"), Chr(34), "" & Chr(34)) AddSlashes = MyString
End Function