Function iSumma(cell As String) As Double
Dim mo As Object
Dim n As Integer
 With CreateObject("VBScript.RegExp")
     .Global = True
     .IgnoreCase = True
  If InStr(1, cell, " 1000 ШТ") Then
     .Pattern = "\d+,?\d?\d?\d?(?= 1000 ШТ)"
     If .test(cell) Then
       Set mo = .Execute(cell)
       For n = 0 To mo.Count - 1
         iSumma = iSumma + mo.Item(n) * 1000
       Next
     Else
       iSumma = 0
     End If
  Else
       .Pattern = "\d+(,| )\d* ?(?=ШТ)"
     If .test(cell) Then
       Set mo = .Execute(cell)
       For n = 0 To mo.Count - 1
         iSumma = iSumma + mo.Item(n)
       Next
     Else
       iSumma = 0
     End If
  End If
 End With
End Function

       .Pattern = "\d* ?\d+(,| )\d* ?(?=ШТ)"

Function iSumma(cell As String) As Double
Dim mo As Object
Dim n As Integer
Dim flag As Boolean
 With CreateObject("VBScript.RegExp")
      .Global = True
      .IgnoreCase = True
      .MultiLine = True
      .Pattern = "(Кол-во - )\d*(,| |)\d*"
     If .test(cell) Then
       Set mo = .Execute(cell)
         flag = False
       For n = 0 To mo.Count - 1
         If InStr(1, mo.Item(n), ",") Then flag = True: Exit For
       Next
       If flag Then
         For n = 0 To mo.Count - 1
           iSumma = iSumma + Split(mo.Item(n), "- ")(1) * 1000
         Next
       Else
         For n = 0 To mo.Count - 1
           iSumma = iSumma + Split(mo.Item(n), "- ")(1)
         Next
       End If
  End If
 End With
End Function