BeforeOptimizationEvent

Private Sub PortfolioOptRuntime_BeforeOptimizationEvent()
   'Your code is here
End Sub