Get input curves of extrude feature

I am trying to get the input curves from an extrude feature. I've managed to grab the feature, and create an extrude builder from it. I can access the section but I am not sure how to go from there to curves. Does anyone have any ideas? Recording a journal gets me some of this code:


Dim extrude1 As Features.Extrude = CType(wrkPrt.Features.FindObject("EXTRUDE(6)"), Features.Extrude)

wrkPrt.Features.SetEditWithRollbackFeature(extrude1)

nxSes.UpdateManager.InterpartDelay = True

Dim mirrorCurve1 As Features.MirrorCurve = CType(wrkPrt.Features.FindObject("MIRROR_CURVE(5)"), Features.MirrorCurve)

mirrorCurve1.MakeCurrentFeature()

If Not wrkPrt.Preferences.Modeling.GetHistoryMode Then
Throw (New Exception("Create or edit of a Feature was recorded in History Mode but playback is in History-Free Mode."))
End If

Dim extrudeBuilder1 As Features.ExtrudeBuilder
extrudeBuilder1 = wrkPrt.Features.CreateExtrudeBuilder(extrude1)

Dim section1 As Section
section1 = extrudeBuilder1.Section

section1.PrepareMappingData()

Below is a snippet of code from a journal that calculates the length of a tube feature by adding up the length of the input curves. The tube is made of one or more "section" objects that contain the curves. I think that the same will apply to an extrude feature.

If myTubeFeature IsNot Nothing Then
tubeParents = myTubeFeature.GetSections
For i As Integer = 0 To tubeParents.Length - 1
For Each objSec As Section In tubeParents
objSec.GetOutputCurves(tubeCurves)
For Each objCurve As Curve In tubeCurves
totalLength += objCurve.GetLength()
Next
Next
Next
'do something with the calculated total length
MsgBox("Total Length: " & totalLength)
End If