各位老师，正则表达式中想匹配中文后数字“(?=[\u4e00-\u9fa5])\d+”但这个匹配不出

0126

是什么原因，或者有什么其他规则匹配出汉字后面的444来吗
Sub s5()
Dim st As String, rg As Object
st = "33鬼鬼444 8 8.8s8"
With CreateObject("VBScript.RegExp") '正则表达式
     .Global = True
     .Pattern = "(?=[\u4e00-\u9fa5])\d+"
     Set rg = .Execute(st)
End With
End Sub

砂海

正则不熟 以下说法 供参考
1. 数字中的空格 难以处理
2. vba 中 表达式 不支持 (?=) 在左侧
----------------------------------------

Sub s5()
    Dim st As String, rg As Object
    Dim rg9 As String                                   '0 增加一个变量
    st = "33鬼鬼444 8 8.8s8"
    st = Replace(st, "", "A")                           '1处理空格
    With CreateObject("VBScript.RegExp")
         .Global = True
         .Pattern = "[\u4e00-\u9fa5]\d+"                '表达式: 多取前面一个汉字
         Set rg = .Execute(st)
         rg9 = Mid(rg(0), 2, 99)                        '取出数字
         Debug.Print rg9
    End With
End Sub