Replace

Jeg har følgende kode, som bare returnerer en fejl, og den kan jeg jo ikke bruge til meget :)
----------------------------------------------------
<%               
Function kommentarer(kommentar)
kommentar = replace(kommentar, "[citat]", "<div align='center'><font color='#FF6600'><i>")
kommentar = replace(kommentar, "[/citat]", "</i></font></div>")
kommentar = replace(kommentar, VbNewLine, "<br>")
kommentarer = kommentar
end function
%>

<% response.write(kommentarer(rs("kommentar"))) %>
----------------------------------------------------
Og her er fejlen.
----------------------------------------------------
Microsoft VBScript compilation error '800a03ea'

Syntax error

/potter3/nyhed2.asp, line 215

Function kommentarer(kommentar)
^
----------------------------------------------------

Kan nogen hjælpe mig?