Выбрать из текста только цифры в квадратных скобках

Function yyy(t$)
 With CreateObject("VBScript.RegExp"): .Pattern = "\[(\d+)\]"
      If .test(t) Then yyy = .Execute(t)(0).Submatches(0)
 End With
End Function

Function uuu#(r As Range)
  Dim x, z, i&: z = r.Value
For i = 1 To UBound(z)
  x = Split(z(i, 1))
  uuu = uuu + CDbl(x(UBound(x)))
Next
End Function

Function uuu1#(r As Range, t$)
  Dim x, x1, t1, x2, z, i&: z = r.Value
For i = 1 To UBound(z)
  x1 = Split(z(i, 1), ",")
  t1 = x1(0)
  x2 = Split(t1)
If t = x2(UBound(x2)) Then
  x = Split(z(i, 1))
  uuu1 = uuu1 + CDbl(x(UBound(x)))
End If
Next
End Function

Function uuu2#(r As Range, t$, d)
  Dim x, x1, t1, x2, x3, z, i&: z = r.Value
For i = 1 To UBound(z)
  x3 = Split(z(i, 1))
  d = x3(0)
  x1 = Split(z(i, 1), ",")
  t1 = x1(0)
  x2 = Split(t1)
If t = x2(UBound(x2)) And d = x3(0) Then
  x = Split(z(i, 1))
  uuu2 = uuu2 + CDbl(x(UBound(x)))
End If
Next
End Function