Loft Sketches and Profiles

[meck]

I have a simple lofted part with 2 sketches. How can I get the profiles and the sketches returned when I have the code below?

Thanks in advance!

        Dim oLoftFeature As LoftFeature
        Set oLoftFeature = oCompDef.Features.LoftFeatures.Item(oCompDef.Features.Item(i).Name)