，符合匹配值的asp正规表达式替换

求一个，符合匹配值的asp正规表达式替换。
比如：

<%

Dim aspName

aspName = "TSR000007776/24接TSR000108979/02"

%>

要求替换显示后的 aspName值 为：“设备X/24接设备X/02“

其实就是把TSR000007776和TSR000108979替换设备X

哪个高手懂正规表达式，帮我写一下代码。
------解决方案--------------------

Dim aspName

Dim re

aspName = "TSR000007776/24接TSR000108979/02"

Set re = New RegExp

re.Global = True

re.IgnoreCase = True

re.Pattern = "[a-z]{3}\d{9}"

aspName = re.Replace(aspName, "设备X")

Set re = Nothing

Response.Write aspName