ASP/VBScript objRegExp og linjeskift

I forgårs anede jeg ikke hvad regexp var - nu har jeg lavet en "Microsoft Word HTML Mess Cleaner" (http://www.algotech.dk/word-html-cleaner-input.htm) og det kører ganske godt :-)

Der er dog ét problem, nemlig linjeskift. Hvis der er mere end 3 linjeskift skal de erstattes med ét. Jeg bruger:

objRegExp.Pattern= "(\r\n){3,}"          ' fjerner for mange linjeskift
strToClean  = objRegExp.Replace(strToClean , VbCrLf)

men det tager kun nogle tilfælde, ikke alle.

jeg har også prøvet med kun \r eller \n , og med \n\r, men det hjælper ikke. Hvad kan jeg gøre?