Регулярное выражение - VB

Формулировка задачи:

Привет всем!
Подскажите, есть лог файл такого вида:

3684   - 2013-INFO 3831 CLR.h:334: Poll - ---------- DB Poll get ----------
3684   - 2013 INFO 3831 CLRDB.h:335: PollDB - 
3684   - 2013 INFO 4117 FoxPB.cpp:9: main - 

   1
   1
   1

   614
   0
   0

368   - 2013 DBT/Ora: Cannot connect to database! : ORA-12541: TNS:no listener

Необходимо на vbscript написать регулярное выражение которое бы показывало содержимое тегов
Такой вот код не работает:

Dim strContents, objFSO, objFile, objReadFile, colMatch
Dim objRegExp, colMatches

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile("C:\\Main.log")
If objFile.Size > 0 Then
    Set objReadFile = objFSO.OpenTextFile("C:\\Main.log", 1)
    strContents = objReadFile.ReadAll
    objReadFile.Close
Else
End If

Set objRegExp = New RegExp
objRegExp.Pattern = "|]*>(.*)|gmis"

' Check our string
Set colMatches = objRegExp.Execute(strContents)
For Each colMatch in colMatches
	MsgBox colMatch.Value
Next

Решение задачи: «Регулярное выражение»

textual
                            Листинг программы 
                        

                            <FoxPBCLR> 
3684   - 2013-INFO 3831 CLR.h:334: Poll - ---------- DB Poll get ----------
3684   - 2013 INFO 3831 CLRDB.h:335: PollDB - 
3684   - 2013 INFO 4117 FoxPB.cpp:9: main - 

<FoxPBCLR>  <FoxPBBaseFeed>
    <Errors max_consecutive_errors=5 />
    <Stats received="48" sent="0" total_errors="0" consecutive_errors="0" />
  </FoxPBBaseFeed>
  <CLRConn>
    <MQDetails qmanager="MQ" channel="CLI" connection="dev" tradesin="01" tradesout="03" />
    <MQStats msgOutCount="4" />
  </CLRConn>
<CLRDBPoll>
   <StoredProcedure name="cl" />
   <Stats messagesSent="1" tradesSkipped="0" tradeUpdateFailures="3" />
   <PollCount>1</PollCount>
   <PriorityRequestCount>1</PriorityRequestCount>
   <PriorityRequestSentCount>1</PriorityRequestSentCount>
</CLRDBPoll><CLRDBPoll>
   <StoredProcedure name="get" />
   <Stats messagesSent="0" tradesSkipped="0" tradeUpdateFailures="0" />
   <PollCount>614</PollCount>
   <PriorityRequest>0</PriorityRequest>
   <PriorityRequest2>0</PriorityRequest2>
</CLRDBPoll><CLRDBPollComplete><StoredProcedure name="get" /><Stats tradesProcessed="0" tradesSkipped="0" tradeFailed="0" /></CLRDBPollComplete></FoxPBCLR>

368   - 2013 DBT/Ora: Cannot connect to database! : ORA-12541: TNS:no listener

                        