find shape outline vba help me

Hello friends, I am dealing with this code but apparently I had no luck
- target assign color '' UserAssignEx ''
search all colors assigned above
I attached the code I hope they help are new in VBA
thanks

Private Sub test()

Dim s As Shape, sp As Shape
Dim sr As ShapeRange
Dim pwc As PowerClip
Dim c As New Color

c.RGBAssign 255, 0, 0
c.UserAssignEx

For Each s In ActiveSelection.Shapes.FindShapes()c

If s.Outline.Type = cdrOutline Or Not s.PowerClip Is Nothing Then
Set pwc = Nothing
On Error Resume Next
Set pwc = s.PowerClip
On Error GoTo 0
If Not pwc Is Nothing Then

For Each sp In pwc.Shapes
If sp.Outline.Type = cdrOutline Then
sp.UngroupAll
sp.OverprintOutline = True
End If
Next sp
Else

If s.Outline.Type = cdrOutline Then

s.OverprintOutline = True
End If

End If

End If
Next s
End Sub