Написать процедуру

Public Function FormatNumberInText( _
        ByVal strText As String _
        ) As String
    Dim blnBegin As Boolean     ' флаг: нашли начало числ
    Dim blnEnd As Boolean       ' флаг: нашли конец числ
    Dim i As Long               ' индекс цикла
    Dim lngCount As Long        ' счётчик найденных чисел
    Dim lngLen As Long          ' длинна текста
    Dim strNew As String
    
    blnBegin = False
    blnEnd = False
    lngCount = 0
    lngLen = Len(strText)
    strNew = strText
    For i = lngLen To 1 Step -1
        strMid = Mid(strNew, i, 1)
        If Not blnEnd Then If InStr(1, "123456789", strMid, vbTextCompare) > 0 Then blnEnd = True
        If blnEnd And Not blnBegin Then If Not InStr(1, "123456789", strMid, vbTextCompare) > 0 Then blnBegin = True
        If blnEnd And blnBegin Then
            strNew = Left(strNew, i) & "+" & Right(strNew, lngLen - i + lngCount)
            lngCount = lngCount + 1
            blnEnd = False
            blnBegin = False
        End If
        ' обрабатываем исключение, если первый символ строки является числом
        If blnEnd And i = 1 Then strNew = "+" & strNew
    Next i
    FormatNumberInText = strNew
End Function

Dim strTextOld as String     ' старый текст
Dim strTextNew as String     ' новый текст
strTextOld = "123 hkhk 686869"
strTextNew = FormatNumberInText(strTextOld)
MsgBox strTextNew, , "Новый текст"

Public Function FormatNumberInTextB( _
        ByVal strText As String _
        ) As String
    Dim i As Long           ' индекс цикла
    Dim lngLb As Long       ' нижний предел массива
    Dim lngUb As Long       ' верхний предел массива
    Dim strArr() As String  ' строковый массив
    
    ' чистим входную строку от лишних пробелов (на всякий случай)
    ' так и второй цикл короче, и нет необходимости проверки значений массива на Null
    Do
        ' заменяем двойные пробелы на одинарные
        strText = Replace(strText, "  ", " ")
        ' при необходимости повторяем цикл
    Loop While InStr(1, strText, "  ") > 0
    
    ' режим строку на массив по пробелам
    strArr() = Split(strText, " ")
    
    lngLb = LBound(strArr)
    lngUb = UBound(strArr)
    ' основной цикл добавления знаков "+"
    For i = lngLb To lngUb
        If IsNumeric(strArr(i)) Then strArr(i) = "+" & strArr(i)
    Next
    FormatNumberInTextB = Join(strArr, " ")
    Erase strArr()  ' удаляем массив из памяти
End Function