Public Sub GetColor()
Dim pd As PartDocument: Set pd = ThisApplication.ActiveEditDocument
Dim sb As SurfaceBody: Set sb = pd.ComponentDefinition.SurfaceBodies(1)
Dim fc As FaceCollection: Set fc = ThisApplication.TransientObjects.CreateFaceCollection()
Call fc.Add(sb.Faces(1))
Call fc.Add(sb.Faces(2))
Call fc.Add(sb.Faces(3))
Dim cc As ObjectCollection
Set cc = pd.ComponentDefinition.SurfaceBodies(1).GetFaceColors(fc)
End Sub