# Applying UDF – Fundamental Cases

This page includes selected relatively simple exercise of applying the user defined function to resolve circular references. The user defined function method allows you to avoid problems that occur with both the iteration method (no goal seek; unstable models; slow models) and the copy and paste method (lose transparency; stop model execution; difficulty with data tables).  I start with very simple examples that only have a few inputs and do not have do loops.  Then I move to more complex cases with loops and reading in more variables. Each of the cases involves first understanding how the financial model works and then working through the excel model with equations.  All of the cases involving making a model parallel to your excel model. I have included the code on this page and also included the sample files.

## Case 1: Simple Funding without Loop – Cash Sweep and LBO Case

For the first case I have set up a very simple sources and uses of funds model with fees on debt. The fees are computed on debt and are included in the uses of funds. In the example you can contrast different methods for solving circular references.

The traditional copy and paste would have something like the following.

```Sub SweepMacro()
GoalSeek1
While Range("Int_Difference").Value <> 0
GoalSeek1
Range("Fixed_Int").Value = Range("Comp_Int").Value
Wend
End Sub
```

The alternative method with a user defined function is illustrated below

```Function SweepInterest(InterestRate, OpeningBalance, EBITDA, SweepPercent)

sweep_difference = 999 ' Need a starting point that is not zero
Count = 1 ' protect against continuing look

While sweep_difference <> 0 ' This is like copy and paste
Count = Count + 1
If Count > 20 Then Exit Function ' protection

last_sweep = SweepInterest ' this will start with zero and used for the difference

cash_flow_s = EBITDA - SweepInterest ' this is what causes the circular reference

Sweeprepayment = WorksheetFunction.Min(cash_flow_s * SweepPercent, OpeningBalance) ' Use excel function
ClosingBalance = OpeningBalance - Sweeprepayment ' keep going backwards and see what you need
AverageDebt = WorksheetFunction.Average(OpeningBalance, ClosingBalance) ' Use excel functions
SweepInterest = AverageDebt * InterestRate ' start witht the end, and see what you need
sweep_difference = last_sweep - SweepInterest
Wend
End Function```

## Case 3: Simple Corporate Model with Short-term Debt and Cash Balance and Average Balances

In this example we work through the classic corporate model circular reference. In the example below I illustrate a case where a loan is repaid with a cash flow sweep.  The interest is computed on the average debt and not the initial debt. As the interest expense is a deduction for cash flow calculation.  So the interest drives the cash flow and the cash flow drives debt which drives interest.  The first screenshot below illustrates the interest calculation.

The UDF can resolve this circular reference in a very easy way.  You just create a little program that defines the sweep as an algebraic formula which is shown first.  Alternatively, the second function demonstrates how to work through the same equations in parallel.  You begin by writing an equation for the sweep and then work backwards.

```.

.```

The screenshot below illustrates how to implement the UDF.  Note that you can find the inputs with either the Shift and F3 short-cut or with the fx thing in the formula bar.

## Case 4: More Complex Corporate Model with Taxes and Net Operating Losses

With taxes, the taxes affect the cash flow, but the taxes are affected by the interest expense.  Here, the tax calculations must be part of the UDF.  The UDF function is demonstrated below the screenshot.  I hope that you can see that the formulas are just the same as the formulas in the spreadsheet with some convergence routines added.

```Function average_interest_taxes(interest_rate, cash_flow, opening_debt_balance, tax_rate, opening_NOL_Balance)

For Iteration = 1 To 30
last_sweep = sweep

average_interest_taxes = ((opening_debt_balance + closing_debt_balance) / 2) * interest_rate

taxable_income = cash_flow - average_interest_taxes
NOL_created = WorksheetFunction.Max(0, 0 - taxable_income)
NOL_used = WorksheetFunction.Min(opening_NOL_Balance, WorksheetFunction.Max(0, taxable_income))
closing_NOL_Balance = opening_NOL_Balance + NOL_created - NOL_used
adjusted_taxable_income = taxable_income + NOL_created - NOL_used

sweep = WorksheetFunction.Min(cash_flow - average_interest_taxes - taxes_paid, opening_debt_balance)

closing_debt_balance = opening_debt_balance - sweep

Next Iteration

converge = Abs(sweep - last_sweep)

If converge < 0.000001 Then Exit Function

End Function

```

## Case 5: Interest During Construction with Loop

This exercise demonstrates how to address the classic circular reference loop in a project finance model.  The screenshot below demonstrates how the debt size comes from the total cost which in turn comes from the interest during construction. Then, the pro-rata percent for determining how much debt is issue comes from a ratio of the total expenditures including IDC.  To solve this circular reference problem this time you need a loop.  With a loop you need to re-set things to zero and be more carefule with the order of things. The UDF function is in line 19 and is an array function.  Arguments for the UDF function include the debt to capital percent, the interest rate and the series of capital expenditures.

The circular reference is illustrated below.  The total debt drives the IDC which drives the pro-rata percentage.  The pro-rata percentage level then drives the IDC which in turn drives the pro-rata percent.  When the blue arrows go back and forth like they do in the diagram below, you probably need a loop to solve the problem.  You also need to put the output of the UDF into an array variable rather than a single variable. The file that has this example is attached to the button below.

The code below illustrates computation of a UDF in the loop.  I have put comments in the loop.  Note that you do not need to put anything in the UDF to say that it is an array output.  Note also that the total debt is computed separately from the debt balance.

```Option Base 1 ' Use option base 1

Function idc_result(int_rate, pct_debt, cap_exp) ' The output is an array variable

Dim idc(10) As Double ' Put arrays on variables you need to remember

For iter = 1 To 20 ' This is arbitrary; it should be modified to check convergence

project_cost = 0 ' Reset the project cost before the loop

For i = 1 To cap_exp.Count
project_cost = project_cost + cap_exp(i) + idc(i) ' Cap Exp is an array variable because of the way it is read in
Next i

debt_balance = 0
debt = project_cost * pct_debt ' You need the project cost to get the debt

For i = 1 To cap_exp.Count
uses = cap_exp(i) + idc(i)
pro_rata = uses / project_cost ' Compute the pro-rata
draws = pro_rata * debt ' Draws from pro-rata

idc(i) = debt_balance * int_rate

debt_balance = debt_balance + draws
Next i

Next iter

idc_result = idc ' The result does not have to be an array

End Function

```

## Case 6: Sculpting with Taxes

Sculpting with taxes creates a circular reference because the interest expense is deductible for taxes and the taxes drive the amount of CFADS which in turn drives the balance of debt