Public Sub GoalSeek( _
   ByVal NameTargetVariable As String, _
   ByVal NameVariableToChange As String, _
   ByVal dTargetValue As Double, _
   ByVal dTimeLimitInSecs As Double, _
   ByVal NumIterationsLimit As Long, _
   ByRef dTimeElapsed As Double, _
   ByRef NumIterations As Long, _
   ByRef TimeLimitExceeded As Boolean, _
   ByRef IterationsLimitExceeded As Boolean _
)