Sub test()
Dim mo As Object
Dim j As Integer
 With CreateObject("vbscript.regexp")
         .Global = True
     .Pattern = "\+"
          Set mo = .Execute(Cells(1, "A"))
     If mo.Count Then
         For j = 0 To mo.Count - 1
           Cells(1, 2 + j) = mo.Item(j).firstindex + 1
         Next
     End If
 End With
End Sub

Sub qwert()
    Dim s, u, i, ss, t
    s = "22 + 33333 + 444 + 5555"
    u = Split(s, "+")
    For i = 0 To UBound(u) - 1
        t = "номер " & Chr(34) & "+" & Chr(34) & "  " & i + 1 & " положение между " & u(i) & "  и  " & u(i + 1)
        Debug.Print i, t
            ss = IIf(Len(ss) = 0, t, ss & ss & vbCrLf & t)
    Next i
End Sub