Sub CountChildNodes()

    Dim nodRoot As DiagramNode
    Dim shDiagram As Shape
    Dim intCount As Integer
    Dim shText As Shape

    Set shDiagram = ActiveSheet.Shapes.AddDiagram _
        (Type:=msoDiagramRadial, Left:= 10 , Top:= 15 , _
        Width:= 400 , Height:= 475 )
    Set nodRoot = shDiagram.DiagramNode.Children.AddNode

    ' Add 3 child nodes to the root node.
    For intCount =  1  To  3 
        nodRoot.Children.AddNode
    Next

    ' Change text in node.
    For intCount =  1  To  4 
        Set shText = shDiagram.DiagramNode.Children.Item( 1 ).TextShape
        shText.TextFrame.Characters.Text = Str(intcount)      ' ЗДЕСЬ ТОРМОЗИТСЯ и ДАЕТ ОШИБКУ!!!
    Next intCount

End Sub
	

Sub ккккк6()
'

    ActiveSheet.Shapes("Organization Chart 146").Select
    Selection.Characters.Text = "333" & Chr( 10 ) & ""    ' здесь тормозиться
    With Selection.Characters(Start:= 1 , Length:= 2 ).Font
        .Name = "Arial Cyr"
        .FontStyle = "îáû÷íûé"
        .Size =  10 
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range("E20").Select
End Sub