问按顺序查找所有数字的Regex

EN

Function catchNumbers(inSt As String)

Dim regex As Object, str As String
Set regex = CreateObject("VBScript.RegExp")

With regex
  .Pattern = "\d{3-7}"
  .Global = True '
  .IgnoreCase = True
End With

inSt = Replace(inSt, ".", "")

Set matches = regex.Execute(inSt)

Debug.Print (matches.Count())

If matches.Count() > 0 Then
    For Each StrFound In matches
        Debug.Print (TypeName(StrFound) & " : " & StrFound)
        str = str & " " & StrFound
    Next StrFound
Else
    str = ""
End If

If Left(str, 1) = " " Then
    str = Right(str, Len(str) - 1)
End If

Debug.Print (str)

catchNumbers = str

End Function