How to get match value of regex in VBA [duplicate]

I'm new to VBA and I need to get the value of a RegEx match and copy its value into another cell.

The string I need to match against will always be in cell E1 and will always follow this type of pattern:

CompanyName/12345 Country Product name (Optional subname) Number CUR 123456 

I need everything inbetween the 5 and 6 digit numbers, so the following regex gets what I need:

\s\w.*\s 

(Space, one or more word characters, space)

I just don't know how to get the VALUE of this match. I see a lot of RegEx.Replace methods on SO but I can't seem to find something that gets me the match value.

Here is my code (using RegEx.Replace):

Sub GetProdID() Dim RegEx As Object Dim myCell As Range Set RegEx = CreateObject("VBScript.RegExp") On Error Resume Next RegEx.Pattern = "\s\w.*\s" ActiveWorkseet.Range("E1").Value = RegEx.Replace(ActiveWorkseet.Range("E1").Value, "") Next End Sub 

How do I just get the value of the match? And how would I do this if the string I'm matching is always in one cell?

Update: The link provided in the comments led me to the right solution. Here is the code edits, thanks to Wiktor Stribiżew for help

Sub GetProdID() Dim myCell As Range Dim Prod As String Set regEx = CreateObject("VBScript.RegExp") regEx.Pattern = "\s\w.*\s" Set matches = regEx.Execute(Range("E1")) Prod = Trim(matches(0)) Range("F1").Value = Prod End Sub