Når Reg.Exp indeholder linjeskift, er der problemer

Hej

Jeg har fundet denne funktion:

Function RegEXPMaker(strInput)
    dim tempStr
    Set regex = New RegExp
    regex.Global = True
    regex.IgnoreCase = True
    regex.Pattern = "\[QUOTE=(.*?)\](.*?)\[/QUOTE\]"
    tempStr = regex.Replace(strInput,"<fieldset><LEGEND style=padding-bottom:5px>$1 skrev følgende:</LEGEND>$2</fieldset>" )
    if regex.test(tempStr) then tempStr = RegEXPMaker(tempStr)
    RegEXPMaker = tempStr
    Set regex = nothing
End Function

Men når strInput indeholder linjeskift (vbCrLf), så kan den ikke finde ud af det?