VBScript正则表达式以仅查找数字模式

我需要知道如何使用vbscript正则表达式来查找包含5个数字的文本的任何部分

例如：

号码号码号码号码

或

12345使用模式“\d{5}”指定五位数字。来自.Execute的匹配集合将保存您感兴趣的部分。代码：

>> Set r = New RegExp
>> r.Global = True
>> r.Pattern = "\d{5}"
>> s = "12345a1234b1234554321c123456d"
>> For Each m In r.Execute(s)
>>     WScript.Echo m.Value
>> Next
>>
12345
12345
54321
12345