Имитационное моделирование - VB (59917)

Формулировка задачи:

Друзья, есть готовая прога и данные для финансовой модели, но нужно это программу вывести через VBA. Кто сможет помочь при написании макроса, чтобы программа работала???????Помогитеее пожалуйста!

Решение задачи: «Имитационное моделирование»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Function VasicekCIRZeroValue(imod, a, b, r, nowyr, zeroyr, sigma)
  ' returns the Vasicek (imod=1) or CIR (imod=2) zero-coupon bond value
Dim syr, sig2, Asyr, Bsyr, rinf, gamma, c1, c2
   syr = zeroyr - nowyr
   sig2 = sigma^2
   If imod = 1 Then
      If a = 0 Then
         Bsyr = syr
         Asyr = Exp((sig2 * syr^3) / 6)  
      Else
         Bsyr =(1 - Exp(-a * syr)) / a
         rinf = b - 0.5 * sig2 / (a^2)
         Asyr = Exp((Bsyr-syr) * rinf - ((sig2 * Bsyr ^ 2) /(4 * a))) 
     End If
   ElseIf imod = 2 Then
     gamma = Sqr(a^2 + 2 * sig2)
    c1 = 0.5 * (a + gamma)
    c2 = c1 * (Exp(gamma * syr) - 1) + gamma
    Bsyr = (Exp(gamma * syr) - 1) / c2
    Asyr = ((gamma * Exp(c1 * syr)) / c2) ^ (2 * a * b / sig2)
  End If
  VasicekCIRZeroValue = Asyr * Exp(-Bsyr * r)
End Function