Simplify code

Is there a way to simplify this piece of program code

Part.Extension.SelectByID2 "Drive2-1@Kratzer T1", "COMPONENT", 0,0, 0, False, 0, Nothing, 0
Part.CompConfigProperties4 2, 0, True, True, strName1, False

I've tried to rewrite it the same as this:

swDoc.Parameter("Lengte@Base-Flange1@Midden2-1@KratzerT2/M2_Plate3-1@Midden2.Part").SystemValue = dblLengte2

I thought it would be something like:

swDoc.CompConfigProperties4("Drive2-1@KratzerT1.Assemby").refConfigName= strName1

But it doesn't work that way.
The hole programcode would be more readable for others if I couldwrite this handling in 1 line in stead of 2.
SolidworksApi macros