FDU que de valores a otra FDU hasta hallar el valor deseado, y devuelva el valor para el que la FDU

Hola, alguien me puede ayudar??

He definido una FDU, pero necesito otra, que de valores a una de las incógnitas de la FDU que he definido, hasta que el resultado de la FDU sea superior o igual a 0.85, y me devuelva el valor de la incógnita que hace cumplir que la FDU=>0.85. El valor que busco es el del parámetro S.(Ver función)

Function FillRate(S, tipovar, param1, param2, r, r1, p) As Double

Dim infinito As Integer

Dim x As Double

infinito = 150

FillRate = 0

For NSo = 1 To S

x = S - NSo

FillRate = FillRate + (fdL(x, tipovar, param2, r1, p) * ((FR(NSo, tipovar, param1, r, p) - FRde0(tipovar, param1, r, p)) / (1 - FRde0(tipovar, param1, r, p)) + SumaDR(tipovar, param1, r, p)))

Next NSo

End Function

Function SumaDR(tipovar, param1, r, p)

DR = NSo + 1

infinito = 150

SumaDR = 0

For DR = 2 To infinito

SumaDR = SumaDR + ((NSo / DR) * (fdDR(DR, tipovar, param1, r, p) / (1 - FRde0(tipovar, param1, r, p))))

Next DR

End Function

Esta son las funciónes principales que he insertado, aunque para que funcione, he tenido que insertar otras siete funciones mas que son las que definen que tipo de distribución estadistica siguen los parametros. Si alguien necesita de las demás funciones para darme un respuesta solo díganmelo, y las subo.