It's a simple function, so far:

Function Commission(Fee)
If Fee = 45 Then Commission = 15 Else Commission = Fee * 0.35
End Function

I've named my ranges. The module is in VBAProject | Modules.

I'm at a loss.