Popup (problema di apici)

[Jc_]

Ciao.
Ho questa funzione dentro una class Library.
La richiamo e mi crea un popup al volo.
Basta che gli passo una variabile e lui mi mostra il testo.
Il problema c'è quando nella variabile è presente un apice '.
Ho provato a mettere un carattere escape \ ma non mi fa alcun replace. se invece uso lo stesso codice dentro una pagina aspx normale questo funziona.

La domanda.. dentro una class library è possibile eseguire dei replace? e/o sapete come aiutarmi a risolvere il problema?

   Public Function Popup(ByVal Val) As String
            Dim testo As String = Val
            Replace(testo, "'", "\'")
            Popup = ("<script>alert('" + testo + "')</" + "script>")
        End Function

nel replace è presente un carattere escape che il forum non mi visualizza.. la riga

Replace(testo, "'", "\'")

va letta come

Replace(testo, "'", " \ ' ") (senza spazi)

[Jc_]

risolto.. sbagliavo io da bravo dormiglione..

scrivevo

Replace(testo, "'", " \ '")

invece di

testo = Replace(testo, "'", " \ '")