Verwendung Add-Inn Funktion in VBA - Fehler 438

Public Function BSOptionHW(AssetPrice As Double, StrikePrice As Double, r As Double, D_rf As  _
Double, Vola As Double, T As Double, CallPut As String)
End Function

Jetzt programmiere ich ein anderes Makro und versuche auf diese Funktion zuzugreifen:
Sub Test()
Dim AssetPrice As Double
Dim StrikePrice As Double
Dim r As Double
Dim D_rf As Double
Dim Vola As Double
Dim T As Double
Dim CallPut As String
Dim Price As Double
AssetPrice = 150
StrikePrice = 120
r = 0.05
Vola = 0.15
T = 0.5
CallPut = "CALL"
I: Price = BSOptionHW(AssetPrice, StrikePrice, r, D_rf, Vola, T, CallPut)
oder
II: Price = Application.BSOptionHW(AssetPrice, StrikePrice, r, D_rf, Vola, T, CallPut)
End Sub

Bei I: erhalte ich die Meldung "Sub oder Funktion nicht definiert", bei II: den Klassiker: "Laufzeitfehler 438 - Objekt unterstützt diese Eigenschaft oder Methode nicht"
Kann mir jemand sagen wie ich diese Funktion in VBA verwenden bzw. ansprechen kann
Danke und lg
gothino