Create and run an optimization feature in VB.NET CATIA V5

Hello, 

I dont know how to assign Wipe parameter to  oOptimization1 as ObjectiveParameter.

If someone can help me with that, down is part of the code where I assign, is it wrong to do it this way in VB.NET 

 Dim Wipe As KnowledgewareTypeLib.Parameter = myDS_Nominal.DirectParameters.GetItem("WipingAngle")

 oOptimization1.ObjectiveParameter = Wipe

 Thanks