Identify nodes ext in SmartArt on PwerPoint slide that contains many shapes.

Hi All:

I want to identify the text in the nodes of a Basic Block List SmartArt shape on a PowerPoint slide that contains other shapes. The code below isn't working for me. Any suggestions gratefully appreciated.

 Sub SmartArtText()

     Dim shp As shape
     Dim oSubShape As shape
     Dim x As Long
    With ActivePresentation.Slides(2)
        ActivePresentation.Slides(2).Shapes.SelectAll
        With shp.SmartArt
        For i = 1 To .Nodes.Count
            'MsgBox .Nodes.Count
            MsgBox .Nodes(i).TextFrame.TextRange.Text
        Next i
        End With
    End With
End Sub