Crear funcion personalizada

Hola

Estoy intentando hacer una funcion personalizada para un descuento un
poco especial, del tipo 30%+15% o para el normal del 25%

KL ya me dió una idea para pasarlo a un formulario, pero quiero
utilizarlo también en una celda de una hoja y no hay manera de que funcione.

Lo que he escrito es esto:

Function descuentounico(celda)
texto = celda
If InStr(texto, "+") Then
txt1 = Left(texto, InStr(texto, "+") - 2)
'solo toma el número sin %
largo = Len(texto)
txt2 = Mid(texto, InStr(texto, "+") + 1, largo-1)
'solo toma el número sin %
Else
txt1 = texto
txt2 = ""
End If
dcto1 = CCur(txt1)
dcto2 = CCur(txt2)
descuentounico = Round ( dcto1 + dcto2 - dcto1 * dcto2 / 100, 2)

End Function

La función hará referencia a la celda que contenga el descuento, por
ejemplo si está en la celda F8 y en la F7 está el descuento (por ejemplo
el 40%+10%), la Žcelda contendría
=descuentounico(F7)

pero me da el error #VALOR

Como siempre gracias

Javi