Public Function GetCustomPropertyValue(currentShape As Visio.Shape, propertyName As String) As String
    Dim iPropSect As Integer
    Dim intResult As Integer
    
    iPropSect = Visio.VisSectionIndices.visSectionProp
    If currentShape.SectionExists(iPropSect, Visio.VisExistsFlags.visExistsAnywhere) <> 0 Then
        Dim j As Integer
        
        For j = 0 To currentShape.Section(iPropSect).Count - 1 Step 1
            Dim vCell As Visio.Cell
            Set vCell = currentShape.CellsSRC(iPropSect, j, Visio.VisCellIndices.visCustPropsValue)
            
            intResult = StrComp(vCell.RowNameU, propertyName)
                        
            If intResult = 0 Then
                'GetCustomPropertyValue = vCell.ResultStr("")
                GetCustomPropertyValue = Replace(vCell.Formula, """", "")
            End If
        Next j
    End If
End Function