Improving On UDF To Consider More Variables

I have created a UDF with much appreciated help from this forum but, now I have to consider another set of variables in this UDF which I am not too sure how to put it into the codes. I hope to get some help with this. Previously I have a set of variables classified under Codes that ranges from "AI to "II" now I have to introduce another set named "Status" they are

"Accepted"
"For Acceptance"
"Rejected"

Another request if possible is the UDF can incorporate the "If funtion" formula I have used together with this UDF. The formula basically says, if Agreed Column is "blank" use the value in "Estimate".


Function AwardImpact(Code As String, Amount As Single)
Select Case Code
Case Is = "AI", "ai" 'Transfer from DD Provisional Sum (-) to Award Value(+)
AwardImpact = Amount
Case Is = "BI", "bi" 'Transfer from Award Value(-) to DD Provisional Sum (+)
AwardImpact = -Amount
Case Is = "CI", "ci" 'Transfer from Other Packages (-) to Award Value(+)
AwardImpact = Amount
Case Is = "DI", "di" 'Transfer from Award Value (-) to Other Packages Value(+)
AwardImpact = -Amount
Case Is = "HI", "hi" 'Tranfer from Provisional Sum (-) to Award Value (+)
AwardImpact = Amount
Case Else
AwardImpact = 0
End Select
End Function