正規表現 - 正確な桁数を返す

Question

文字列（VBAで作業中）から5桁の連続した数字を返したいと思います。

この記事Regexに基づいて、私はパターン[^\d]\d{5}[^\d]を使用していますが、これは目標の5桁の前と後に、すぐに単一の文字をピックアップし、h92345W（「South92345West ....」から）を返します。 92345

Sub RegexTest() 

    Dim strInput As String 
    Dim strPattern As String 

    strInput = "9129 Nor22 999123456 South92345West" 

    'strPattern = "^\d{5}$" 'No match 

    strPattern = "[^\d]\d{5}[^\d]" 'Returns additional letter before and after digits 
            'In this case returns: "h12345W" 

    MsgBox RegxFunc(strInput, strPattern) 

End Sub 


Function RegxFunc(strInput As String, regexPattern As String) As String 

    Dim regEx As New RegExp 
    With regEx 
     .Global = True 
     .MultiLine = True 
     .IgnoreCase = False 
     .Pattern = regexPattern 
    End With 


    If regEx.test(strInput) Then 
     Set matches = regEx.Execute(strInput) 
     RegxFunc = matches(0).Value 
    Else 
     RegxFunc = "not matched" 
    End If 

End Function 

Answer 1

([^\d])(\d{5})([^\d]) 

、マッチした用語は、第二グループ

Answer 2

あなたがグループを使用する必要があります：

"[^\d](\d{5})[^\d]" 

をそして数は最初のグループになります

どのように私は唯一の5つの連続した数字を返すように変更することができます。グループ化のVBA構文については不明です。あなたは、この正規表現を使用することができます