Excel 2007 VBA. Функция с двумя аргументами не хочет работать

Option Explicit
Dim curCSP As Currency, curSP As Currency, dbGamma As Double, dbNDFd1 As Double, dbDelta As Double, dbCNF As Double, dbNDF As Double, dbSV As Double, dbIr As Double, dbTM As Double, dbCNF_d1 As Double, dbCNF_d2 As Double, dbDelta_two As Double, dbDelta1 As Double, dbNDF1 As Double
 
 
 
 
 
Sub CallOptionCalculator()
 
Dim curValue As Currency
'CurProduct As Currency
'curRate As Currency
'culculater1 As Currency
 
 
 
Range("B1").Activate
curCSP = ActiveCell.Value ' current stock price (= S )
 
Range("B2").Activate
curSP = ActiveCell.Value ' strike price (= K )
 
Range("B3").Activate
dbSV = ActiveCell.Value ' stock volatility (= sigma )
 
Range("B4").Activate
dbIr = ActiveCell.Value ' interest rate (= r )
 
Range("B5").Activate
dbTM = ActiveCell.Value ' time to maturity (= T )
 
 
 
 
 
           Dim A As Currency
 
            
            'MsgBox ("Your A is " & A) ' debugging line
            
             CulculationDelta1Function
            
             MsgBox ("Your dbDelta1 is " & dbDelta1) ' debugging line
          
                        
             CulculationNormalDensityFunction (dbDelta1) ' = n(x)
          
             MsgBox ("Your n(x) is " & CulculationNormalDensityFunction(dbDelta1)) ' debugging line
             
             dbNDFd1 = CulculationNormalDensityFunction(dbDelta1)
 
dbNDFd1 = 1
             
             CulculationCumulativeNormalFunction (dbDelta1, dbNDFd1)
            
                                                       
 
End Sub
_______________________________________________________________
Function CulculationCumulativeNormalFunction(dbDelta As Double, dbNDF As Double) As Double
 
 
 
Const factorGamma = 0.2316419
Const factorA1 = 0.31938153
Const factorA2 = -0.356563782
Const factorA3 = 1.781477937
Const factorA4 = -1.821255978
Const factorA5 = 1.330274429
 
Dim factorK As Double
 
 
 
factorK = 1 / (1 + factorGamma * dbDelta)
 
 
CulculationCumulativeNormalFunction = Round(1 - dbNDF * (factorA1 * factorK + factorA2 * (factorK ^ 2) + factorA3 * (factorK ^ 3) + factorA4 * (factorK ^ 4) + factorA5 * (factorK ^ 5)), 6)
 
'MsgBox ("Your dbCNF is " & dbCNF) ' debugging line
 
End Function
_______________________________________________________________
Function CulculationNormalDensityFunction(dbX As Double) ' = n(x)
 
Const PI = 3.14159265358979
 
'dbX = dbDelta1
 
CulculationNormalDensityFunction = Round((1 / Sqr(2 * PI)) * Exp(-(dbX ^ 2) / 2), 6)
 
'where NDF_d1 (= n(d1)) is the normal density function
'and dbSV (=sigma) is the stock volatility
 
 
'MsgBox ("Your dbNDF is " & dbNDF) ' debugging line
 
End Function
________________________________________________
 
Sub CulculationDelta1Function()
 
 
dbDelta1 = Round((Log(curCSP / curSP) + (dbIr + 0.5 * dbSV ^ 2) * dbTM) / dbSV * Sqr(dbTM), 6)
 
 
'MsgBox ("Your dbDelta1 is " & dbDelta1) ' debugging line
 
End Sub

CulculationCumulativeNormalFunction dbDelta1, dbNDFd1 'без скобок
'или
Call CulculationCumulativeNormalFunction (dbDelta1, dbNDFd1)

dbDelta1 = CulculationCumulativeNormalFunction (dbDelta1, dbNDFd1)