Option Compare Binary
Option Explicit

Function CutWords(Txt As Variant) As Variant
  Dim Out$
  Dim i As Integer
  
  If Len(Txt) = 0 Then Exit Function
  For i = 1 To Len(Txt)
  ''слова слиплись ИвановИванПетрович
  ''разделение слова между малой и большой буквами
    If Mid(Txt, i, 1) Like "[a-za-яё]" And Mid(Txt, i + 1, 1) Like "[A-ZA-ЯЁ]" Then
      Out = Out & Mid(Txt, i, 1) & " "
    Else
      Out = Out & Mid(Txt, i, 1)
    End If
  Next i
  CutWords = Out
End Function