Option Explicit
Public Function SumNumFromText(txt As String) As Long
Dim dicReg As Object
Dim arr As Variant, x As Variant
Dim strTemp As String

On Error GoTo er                                        'в случае ошибки переход на "er"
Set dicReg = CreateObject("VBScript.RegExp")            'инициализируем "RegExp" (Регулярные Выражения)
    dicReg.Global = True: dicReg.Pattern = "[^0-9]"     'шаблон извлечения НЕцифр
strTemp = dicReg.Replace(txt, " ")                      'заменяем все НЕцифры (по шаблону) на пробелы
strTemp = Application.WorksheetFunction.Trim(strTemp)   'удаляем лишние пробелы (функция СЖПРОБЕЛЫ на листе)
arr = Split(strTemp)                                    'разделям по пробелу (разделитель по-умолчанию для "Split") числа и забираем их в массив "arr"
    For Each x In arr                                   'для каждого элемента (x) в массиве (arr) (цикл)…
        SumNumFromText = SumNumFromText + x             'результат функции = предыдущий результат функции + текущий элемент
    Next x                                              'следующий элемент массива

GoTo fin                                                'если дошли до сюда, значит ошибки не было. Переход на "fin", чтобы не присвоить функции 0 (как при ошибке)
er:                                                     'er = пользовательский ярлык ошибки
SumNumFromText = 0                                     'при ошибке значение функции = 0
fin:                                                    'fin = пользовательский ярлык финала
On Error GoTo 0                                         'сброс параметра обработки ошибок "On Error"
End Function