sub mcr1()

dim myShape as visio.shape
dim myFormula as string
dim i as long
dim K as long
dim TXT as string

K=0
TXT="+"
'Выбранный шейп
set myShape=activewindow.selection.item(1)

myFormula=myShape.cells("Имя свойства").formula

for i=1 to len(myFormula)

    if TXT=mid(myFormula,i,1) then K=K+1

next i

msgbox K

end sub