如何取出一段字符串中数字的和

public function getsum（byval s as string) as long
    
    dim re as regexp
    dim mh as match
    dim mhs as matchcollection
    
    set re = new regexp
    re.global = true
    re.pattern = "\d+"
    if re.test（s) = true then
        set mhs = re.ＥＸＥＣute（s)
        for each mh in mhs
            getsum = getsum + mh.value
        next
    end if

end function

public function getnumsum（byval s as string) as long
    
    dim tmp as string
    dim i as long
    for i = 1 to len（s)
        tmp = mid（s, i, 1)
        if isnumeric（tmp) then
            tmp = val（mid（s, i))
            getnumsum = getnumsum + val（tmp)
            i = i + len（tmp) + 1
        end if
    next

end function