Proteção Sql Injection

Bom dia,

fiz uma função baseada no mysql_real_escape_string do php,

Function entraString(Str)
dim valor : valor = Str

if trim(valor) <> "" then
valor = replace(valor, "\", "\\")
valor = replace(valor, "\x00", "x00")
valor = replace(valor, "\n", "n")
valor = replace(valor, "\r", "r")
valor = replace(valor, "'", "\'")
valor = replace(valor, """", "\""")
valor = replace(valor, "\x1a", "x1a")
entraString = valor
else
entraString = valor
end if
end Function
só que ao testar pela ferramenta de vulnebarilidades "Acunetix" num teste de login via post indica que tem problema com sql injection, depois ao tentar outra ferramenta de hacking o "havij" não consigo hackear, o que é bom, mas o resultado do "Acunetix" deixou-me preocupado, poderá alguém testar esta função e se consegue fazer sql injection?