Function
RentAndFitout(Time,Base,fitout,FromDates,Rents,Expiry,MktRent,GrowthDates,GrowthRates)
Dim myrent, myfit
myrent =
Run("fsteprentgrow",Time,Base,Expiry,MktRent,FromDates,Rents,GrowthDates,GrowthRates,60,0,6,4,1)
myfit =
Run("mkpmts",Time,Base,FromDates(1),fitout)
RentAndFitout = myrent - myfit
End Function