Conocer el valor final que toma un contador

[javieres]

Hola, Buenas tardes:

He insertado una FDU (FillRate), luego mediante esta FDU, quiero que cumpla la condición de que el resultado sea mayor a 0.85, hasta aqui, todo correcto. Ahora mi duda es, como puedo saber para que valor de la variable S, se cumple la condicion. Muchas Gracias.

Function stock(tipovar As Byte, param1 As Double, param2 As Double, r As Double, r1 As Double, p As Double) As Double

Dim result As Double

Dim Suma As Double

s = 1

FRob = 0.85

stock = FillRate(s, tipovar, param1, param2, r, r1, p)

While stock < FRob

s = s + 1

stock = FillRate(s, tipovar, param1, param2, r, r1, p)

Wend

End Function

Un saludo.