Find shapes

Hallo,

I try to search for outlines with Special Color in a Document, unfortunately it doesn´t work

Sub Outline()
Dim s As Shape
Dim sr As New ShapeRange
For Each s In ActivePage.Shapes.FindShapes()
If s.Outline.Type = cdrColorRGB And s.Outline.Type = RGB(255, 0, 0) Then
s.Group
End If

Next s
End Sub

please help