RegExp för ALLA tecken ? ".*\s*" funkar ej

Har nedanstående uttryck som ska hämta taggen och den
text som finns emellan plus eventuella space-tecken som chr(13),chr(10)

Men jag måste glömt nåt viktigt.
Hur skriver man enklast ett mönster som matchar en tag plus
hela dess innehåll.

Inget av dessa funkar ju.

"<div>.*\n*</div>"
"<div>.*\s*</div>"
"<div>\S*\s*</div>"

Använder detta skript:

<%
Sub RegExpTest(strMatchPattern, strPhrase)

'create variables
Dim objRegEx, Match, Matches, StrReturnStr
'create instance of RegExp object
Set objRegEx = New RegExp

'find all matches
objRegEx.Global = True
'set case insensitive
objRegEx.IgnoreCase = True
'set the pattern
objRegEx.Pattern = strMatchPattern 


  'create the collection of matches
Set Matches = objRegEx.Execute(strPhrase) 

'print out all matches
For Each Match in Matches
    strReturnStr = "Match found at position "
    strReturnStr = strReturnStr & Match.FirstIndex & ". Match Value  '"
    strReturnStr = strReturnStr & Match.value & "'."
    'print
   Response.Write(strReturnStr & "\<BR\>")
Next
  response.write "antal träff = " & Matches.count    

Set objRegEx = Nothing
Set Matches = Nothing
End Sub

sString = "<div>adress" & chr(10) & "10" & chr(9) & "<br></div>"
sPattern = "<div>.*\s*</div>"

RegExpTest sPattern, sString
%>