Set Active Feature Definition with VB

I am looking for a simple key in or VB example to set the Active Feature Definition. The only thing I can come up with is this confusing string:

"CIVILCMD SETVALUE FeatureDefinition=Bentley.Civil.Geometry.Model.LinearEntity2dInPlan, Bentley.Civil.Geometry.Model.3.0, Version=1.0.0.0, Culture=neutral, PublicKeyToken=4bf6c96a266e58d4|E_Terrain_Contour_Major>~Lin|False ".

When I try to break the above sting apart and run it without all the garbage in it, PowerGEOPAK crashes.

There should be an easier way to code this in a custom VBA such as:

CadInputQueue.SendCommand "ActiveFeatureDef=E_Terrain_Contour_Major"

Thank you for your assistance I greatly appreciate it.