Hi Everyone,
I 've created a funcion and I cannot get it to return a value other than Null or Zero. I've tried changing the type returned.... Text, Long, Integer etc. I orginally had it in a class, then I moved it to a module and finally to the form it is used in....with no results. I get no errors but also no data. I'm at my wits end!!!! The code follows.

Dim WrkStrikePrc As Currency
Dim WrkOutNbrOfOSO As Long
Dim GrantPrice As Currency
Dim NetOSOWorth As Currency
Dim AdjExerPrc As Currency
Dim OutPerfPrecent As Double
Dim SucMult As Double
Dim PreMultGain As Currency
Dim PostMultGain As Currency
Dim AwardTotVal As String


'
AwardTotVal = CalcOSOValue _
(WrkStrikePrc, AnSPGrw, AnLVLTGrw, _
AvgStockPrc, WrkOutNbrOfOSO)

' Use Debug to check the value of AwardTotVal will = Null here

Public Function CalcOSOValue _
(IntStrPrc As Currency, _
AnSPGrw As Double, AnLVLGrw As Double, _
AvgStockPrc As Currency, WrkOSOAwd As Long) _
As String
AwardTotVal = "Anything"

' Use Debug to Check value of AwardtotVal will = Something Here

End Function

Thanks Again!