BeforeIterationEvent

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