Regular med asp koder i sej?

objRegExp.Pattern = "(....)\-(01)\-(..)"
f2 = objRegExp.Replace(f2,"$3 januari $1")
objRegExp.Pattern = "(....)\-(02)\-(..)"
f2 = objRegExp.Replace(f2,"$3 februari $1")
objRegExp.Pattern = "(....)\-(03)\-(..)"
f2 = objRegExp.Replace(f2,"$3 mars $1")
objRegExp.Pattern = "(....)\-(04)\-(..)"
f2 = objRegExp.Replace(f2,"$3 april $1")
objRegExp.Pattern = "(....)\-(05)\-(..)"
f2 = objRegExp.Replace(f2,"$3 maj $1")

som ni ser så blir det rätt klumpigt.. kan man fixa det på något annat sätt???

for i = 1 to 12
objRegExp.Pattern = "(....)\-(" & right("0" & i,2) & ")\-(..)" 
f2 = objRegExp.Replace(f2,"$3 " & lcase(monthname(i)) & " $1") 
next

fungera fett! tack!