VBScript.Regexp

In primul rand salut tuturor

Am facut in outlook un macro care preia numarul de inmatriculare al masinii si creeaza un folder, apoi muta mailul in acel folder... toate bune, mai putin partea care cauta numarul de inmatriculare in body-ul mailului.

functia arata asa:

Private Sub objInboxItems_ItemAdd(ByVal Item As Object)
Dim objProjectFolder As Outlook.MAPIFolder
Dim folderName As String
Set objRegEx = CreateObject("VBScript.RegExp")
objRegEx.Global = False
objRegEx.Pattern = "Numar inmatriculare:\s+(.+)"
Set colMatches = objRegEx.Execute(Item.Body)
If colMatches.Count > 0 Then
For Each myMatch In colMatches
MsgBox myMatch ---- aici nu imi afiseaza nici un match!
folderName = Right$(Mid$(myMatch.Value, 1), 7)
If FolderExists(objDestinationFolder, folderName) Then
Set objProjectFolder = objDestinationFolder.Folders("Inbox").Folders(folderName)
Else
Set objProjectFolder = objDestinationFolder.Folders("Inbox").Folders.Add(folderName)
End If
Item.Move objProjectFolder
Next
End If
Set objProjectFolder = Nothing
End Sub

Un mail arata in genul:

Marca auto: Opel Vectra
Numar inmatriculare:   B01ABC
An fabricatie: 2003

Ma poate ajuta cineva cu patternul care sa functioneze corect in VB? Am testat patternul pe tooluri online, merge fara probleme, doar in VB nu gaseste matchuri (macrourile sunt enable, totul functioneaza, inclusiv functia de mai sus este testata, cu un alt pattern, si pe Subjectul mailului, nu pe Body)

Multumesc anticipat