Problemer med funktion

Halløj

Jeg bruger følgende funktion til erstatning af plinger ved indsættelse i DB.

FUNCTION DBtext(input)
  DBtext = Replace(input, \"\'\", \"\'\'\")
END FUNCTION

Jeg vil imidlertid gerne udvide den så den også omfatter \"<\" og \">\". Derfor har jeg prøvet med:

FUNCTION DBtext(input)
  DBtext = Replace(replace(replace(input,\"&lt;\",\"<\"),\"&gt;\",\">\"), \"\'\", \"\'\'\")
END FUNCTION

Men det virker sgu ikke rigtigt... Hvad gør jeg?