Problem med RegExp

Varför delas inte mina nyheter upp i följande kod?

'----- Hämtar SOFTs hemsida
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://www.orientering.se", False
objHTTP.Send
strHTML = objHTTP.ResponseBody
Set objHTTP = Nothing

'----- Omvandlar binär text till vanlig text så att å, ä ö och liknande visas
strHTML = BinToText(strHTML,35000)
'----- Tar bort radbrytningar
strHTML = Replace(strHTML, vbCrLf, "#radbrytning#")

Set objRegExp = New RegExp
objRegExp.Global = true
objRegExp.IgnoreCase = false

'----- Använd bara aktuell nyhetsdel från sidan
objRegExp.Pattern = "<div class=""clNewsHeader""><h4>NYHETER</h4></div>.+<div class=""clNewsHeader""><h4>FLER NYHETER</h4></div>"
Set arrResult = objRegExp.Execute(strHTML)
strHTML = arrResult(0)

'----- Dela upp nyheterna
objRegExp.Pattern = "<div class=""clNewsEntry"">.+</div>"
Set arrNews = objRegExp.Execute(strHTML)

Set objRegExp = Nothing

Jag vill att arrNews skall innehålla olika nyheter. Som det är nu sparas alla nyheter i en enda och jag har inte den blekaste aning om varför???

Om ni undrar vad BinToText() är så är det en funktion som gör att å, ä och ö visas korrekt genom att omvandla från binär till vanlig ASCII. Tror jag, har nämligen inte skapat den själv. Funktionen ser ut såhär:

Function BinToText(varBinData, intDataSizeInBytes)
	const adFldLong = 128
	const adVarChar = 200
	set objRS = Server.CreateObject("ADODB.Recordset")
	
	objRS.Fields.Append "txt", adVarChar, intDataSizeInBytes, adFldLong
	objRS.Open
	
	objRS.AddNew
	On Error Resume Next
	objRS.Fields("txt").AppendChunk(varBinData)
	tmp = objRS("txt").Value
	objRS.Close
	Set objRs = Nothing
	BinToText = tmp
End Function