Dim sh As Visio.Shape
Sub ttt()
Set sh = ActiveWindow.Selection(1)
Flag = False
If sh.SectionExists(visSectionProp, 0) Then
    For i = 0 To sh.RowCount(visSectionProp) - 1
        If StrComp(sh.CellsSRC(visSectionProp, i, 0).RowNameU, "first") = 0 Then
            Result = sh.CellsSRC(visSectionProp, i, visCustPropsValue).FormulaU
            Flag = True
        End If
    Next
End If
If Flag Then
    Debug.Print Result
Else
    Debug.Print "No Data"
End If
End Sub

Sub ttt1()
Set sh = ActiveWindow.Selection(1)
Flag = False
If sh.SectionExists(visSectionProp, 0) Then
    For i = 0 To sh.RowCount(visSectionProp) - 1
        If StrComp(sh.CellsSRC(visSectionProp, i, visCustPropsLabel).FormulaU, Chr(34) & "par1" & Chr(34)) = 0 Then
            Result = sh.CellsSRC(visSectionProp, i, visCustPropsValue).FormulaU
            Flag = True
        End If
    Next
End If
If Flag Then
    Debug.Print Result
Else
    Debug.Print "No Data"
End If
End Sub