Fejl i RegExp - eller hvad?

Hej!

Jeg har lavet nedenstående script til et system, jeg er igang med at lave. Funktionen skal kunne finde Modul.Nyheder.X eller Modul.Kontakt.X, hvor X kan være, hvad som helst.

Det ser sådan ud:

----------

Function InsertModule(String)
    Set regEx = New RegExp
    regEx.Pattern = "Modul\.Nyheder\.[a-z0-9]+"
    regEx.IgnoreCase = False
    regEx.Global = True
    Set Matches = regEx.Execute(String)
        For Each Match in Matches
            arrMatch = Split(Match.Value, ".")
            If arrMatch(1) = "Nyheder" Then
                String = Replace(String, Match.Value, "= PrintLatestNews(" & arrMatch(2) & ")")
            Elseif arrMatch(1) = "Kontakt" Then
                String = Replace(String, Match.Value, "= PrintContact" & arrMatch(2) & "()")
            End if
        Next
    InsertModule = String
End Function

----------

Problemet er bare, at når jeg så bruger funktionen, så får jeg følgende fejl:

Microsoft VBScript compilation  error '800a0409'

Unterminated string constant

/demo/modules/standard.asp, line 76

PrintPageText = Replace(page("site_content"), "
-----------------------------------------------^

Er der nogen, der kan hjælpe?

Venlig hilsen,
Sebastian Kraaijenzank