Replace " med noget andet

Jeg har et underligt problem at al tekst efter " bliver slettet i nyhedssektionen, men det sker ikke i forum sektionen, jeg kan umiddelbart kun se at det skulle være noget med min replace at gøre, som kun er i nyhedssektionen:

tekst = ""& Request.Form("tekst")
tekst = Replace(tekst, "http://", "")
tekst = Replace(tekst, vbCrLf, "<br>")
tekst = Replace(tekst, "<b>", "")
tekst = Replace(tekst, "</b>", "")
tekst = Replace(tekst, "<u>", "")
tekst = Replace(tekst, "</u>", "")
tekst = Replace(tekst, "<i>", "")
tekst = Replace(tekst, "</i>", "")
Set regEx = New RegExp
regEx.Global = true
regEx.IgnoreCase = True
regEx.Pattern = "(\[a])(.+)(\[/a])"
tekst = regEx.Replace (tekst, "<a href=""http://$2"" target=""_blank"">$2</a>")
Set regEx = Nothing

Hvad kan der være galt?