FindObjByStringInGeomSet

Function FindObjByStringInGeomSet(GeoSet As HybridBody, StrSeg As String) As HybridShape
Dim numb_set As Integer
numb_set = GeoSet.HybridShapes.Count
Dim loop_x As Integer
For loop_x = 1 To numb_set
    If InStr(GeoSet.HybridShapes.Item(loop_x).Name, StrSeg) <> 0 Then
        Set FindObjByStringInGeomSet = GeoSet.HybridShapes.Item(loop_x)
        loop_x = numb_set
    End If
Next loop_x
End Function