Retrieve texte from a Masters - vba

Question

I'm working on Visio 2013 for a project and I'm new to VBA and Visio.
First, I wrote a function which imports a CSV file in the current visio document by creating first a string table texte of the CSV and then adding it in a shape:
Dim sp As Visio.Shape
Set sp = ActiveDocument.Pages(1).Drop(Visio.ActiveDocument.Masters("Puce 120"), 4, 10)
sp.Characters.Text = texte
Now I want to write the reverse function, from the shape to a CSV file but I can't find a way to access the text in my shape "Puce 120".
I wrote this:
Dim vsoMasters As Visio.Masters
Dim intMasterCount As Integer
Dim intCounter As Integer
Dim vsoMaster As Visio.Master
Set vsoMasters = ActiveDocument.Masters
intMasterCount = vsoMasters.Count
If intMasterCount > 0 Then
For intCounter = 1 To intMasterCount
If vsoMasters.Item(intCounter).Name = "Puce 120" Then
Set vsoMaster = vsoMasters.Item(intCounter)
End If
Next intCounter
Else
Debug.Print " No masters in document"
End If
Dim shap As Visio.Shapes
Set shap = vsoMaster.Shapes
Dim ch As Visio.Characters
ch = shap.Characters
But I don't find my text in ch. Can someone explain me how to retrieve it?

Answer 1

You can put and get text of a shape using shape.Text property.
Is there any reason for all other fancy stuff? That is, you can set shape text like this:
shape.Text = "Hello"
And get it back like this:
myText = shape.Text