find CMYK outlines

I need to change CMYK outlines to RGB. I think the following code will make the change but how what code would identify CMYK outlines?

For Each s In OrigSelection
     'if CMYK black make RGB black
     s.SetOutlineProperties Color:=CreateRGBColor(0, 0, 255)
Next s