Function Increm(ByVal source As String, Delta As Long)
Dim i As Integer, j As Integer
Dim a() As String
Dim b() As String
Dim c() As String
a = Split(source, "[attach]")
If UBound(a) > 0 Then
    For i = 1 To UBound(a)
        b = Split(a(i), "[/attach]")
        If UBound(b) > 0 Then
            c = Split(b(0), ",")
            For j = 0 To UBound(c)
                c(j) = CLng(c(j)) + Delta
            Next
            b(0) = Join(c, ",")
         End If
         a(i) = Join(b, "[/attach]")
    Next
End If
Increm = Join(a, "[attach]")
End Function

Function qwq(s$, d$)
    Dim ss$, i&, spl
    ss = Mid(s, InStr(s, "[attach]") + 8, InStr(s, "[/attach]") - InStr(s, "[attach]") - 8)
    spl = Split(ss, ",")
    For i = LBound(spl) To UBound(spl)
        spl(i) = CLng(spl(i)) + d
    Next
    qwq = Replace(s, ss, Join(spl, ","))
End Function

Function bbb$(t$,delta)
 With CreateObject("VBScript.RegExp"): .Pattern = "\d+": .Global = True
  bbb = .Replace(t, "$&+" & delta)
 End With
End Function



Function vvv$(t$)
With CreateObject("scriptcontrol"): .Language = "JScript"
vvv = .eval("'" & t & "'.replace(/\d+/g,function(t1) { return Number(t1)+10;})")
    End With
End Function