RegExp + Hjärnsläpp = Kaos

Idag har jag en seg dag, försovning 1 timme, lite småsjuk och så, och så kommer jag till jobbet och ska fixa RegExp för första gången.
Det jag vill ha är en ersättning av ett ord i en sträng, och jag har sökt upp exempel men inte fått det att fungera som det ska.
Det är säkert en petitess, men inget av det jag sett har fungerat.
Snälla, hjälp mig med detta lilla problem.

Det jag har hittils är:

	Dim objRegExpr

        'TheNews = RS("News")
        TheNews = "Min Mamma är 3 meter lång, Mamma kan handla med andra mammor, mamma!"

	Set objRegExpr = New regexp

	objRegExpr.Pattern =  "Mamma"
	objRegExpr.Global = True
	objRegExpr.IgnoreCase = True

	objRegExpr.Replace TheNews, "<font color=red>$1</font>"

Response.Write TheNews

När jag skriver ut "TheNews" så skrivs det som om ingenting hade hänt...

Varför är det så...