Public Function GetNumber(ByVal this As String) As Long
      Static pReg As Object
      Dim pos As Long, pMatch As Object

      pos = VBA.InStr(this, "нет", Compare:=vbTextCompare)
      If pos > 0 Then
          GetNumber = 0
      Else
          pos = VBA.InStr(this, "есть", Compare:=vbTextCompare)
          If pos > 0 Then
              GetNumber = 10
          Else
              If pReg Is Nothing Then
                  Set pReg = CreateObject("VBScript.RegExp")
                  pReg.Global = True
                  pReg.Pattern = "\d+"
              End If
              Set pMatch = pReg.Execute(this)
              If pMatch.Count > 1 Then
                  GetNumber = CLng(pMatch(1).Value)
              ElseIf pMatch.Count = 1 Then
                  GetNumber = CLng(pMatch(0).Value)
              End If
          End If
      End If
End Function

Private Function GetRegExp() As Object
     Dim pReg As Object
     Set pReg = CreateObject("VBScript.RegExp")
     pReg.Global = True: pReg.Pattern = "\d+"
     Set GetRegExp = pReg
End Function

Public Function GetNumber2(ByVal this As String) As Long
     Dim pReg As Object, pos As Long, pMatch As Object
     GetNumber2 = 0
     pos = VBA.InStr(this, "есть", Compare:=vbTextCompare)
     If pos > 0 Then
         GetNumber2 = 10
     Else
         If pReg Is Nothing Then Set pReg = GetRegExp
         Set pMatch = pReg.Execute(this)
         If pMatch.Count = 2 Then
             GetNumber2 = CLng(pMatch(1).Value)
         ElseIf pMatch.Count = 1 Then
             GetNumber2 = CLng(pMatch(0).Value)
         Else
             pReg.Pattern = "\++/?-+|-+/?\++"
             If pReg.Test(this) Then
                 GetNumber2 = 5
             ElseIf VBA.InStr(this, "+") > 0 Then
                 GetNumber2 = 10
             End If
         End If
     End If
End Function