How to Assign Artistic Text to Variable

Hi, I have a simple document that has named Artistic Text (i.e. design in screen shot below).  In VBA I would like to set my variable design equal to the text/string of named Artistic Text.  For example, in this case the variable should get assigned  "Design 3":

design = p.Shapes.FindShape("design")

design = design 3 

I have tried various different ways and looked through previous questions, yet I still cannot get this to work.  Does anyone know how to do this?

Sub designauto()

Dim design As String

design = p.Shapes.FindShape("design")