Function str2direct(ByVal s As String) As String
    Dim a
    s = WorksheetFunction.Trim(Replace(Replace(s, ".", " "), ",", " "))
    If Len(s) > 0 Then
        a = Split(s, " ")
        For i = UBound(a) To LBound(a) + 1 Step -1
                If Len(a(i - 1)) < 3 Then
                    a(i - 1) = a(i - 1) & "+" & a(i)
                    a(i) = ""
                End If
        Next
        s = WorksheetFunction.Trim(Join(a, " "))
    End If
    str2direct = s
End Function

Function uuu$(t$)
   Dim i%, t1$
   With CreateObject("VBScript.RegExp"): .Global = True: .IgnoreCase = True
    .Pattern = "(?:[^-а-яё\d]|^)[-а-яё\d]{1,2}(?=[^-а-яё\d]|$)"
           t1 = .Replace(t, "$&+"): uuu = Replace(t1, "+ ", "+")
  End With
End Function

Function yyy$(t$)
   Dim i%
   With CreateObject("VBScript.RegExp"): .Global = True: .IgnoreCase = True
    .Pattern = "(?:[^-а-яё\.,\d]|^)[-а-яё\.,\d]{1,2}(?=[^-а-яё\.,\d]|$)"
           yyy = .Replace(t, "$&+")
  End With
End Function