Checking form variable values for security

 Hi,
please take a look at the code below 
Function KCheck1(KValidation,kstrng)
if KValidation="Text" then
kstrng=replace(kstrng,"    ",chr(9))
kstrng=replace(kstrng,"&","&")
kstrng=replace(kstrng,"'","'")
kstrng=replace(kstrng,"<","<")
kstrng=replace(kstrng,">",">")
kstrng=replace(kstrng,""","''")
kstrng=replace(kstrng,& ...