recursive function fails to return value

[lacalacaloca1]

Function recursiveTest(n)
    x = n + 1
    Debug.Print n
    If x > 10 Then
        recursiveTest = "finish recursive test"
    Else
        recursiveTest x
    End If
End Function

If I debug, I don't see the "finish recursive test".
? recursiveTest(7,false)
7
8
9
10
<blank>

I should see "finish recursive test" instead of the whilte blank line there.

[kadghar]

...
i should see "finish recursive test" instead of the whilte blank line there.

Try to define better the variables you're using, I hope your problem could solve if you define, and evaluate strings.

function recursiveText( byval n as string) as string
dim x as double
x = val(n) +1 

... and everything else. Give it a try

HTH

[Killer42]

? recursiveTest(7,false)
7
8
9
10
<blank>

I should see "finish recursive test" instead of the whilte blank line there.

Are you sure the Debug output you're showing us matches the code listed above? You have two parameters there, while the function declaration has only one. Surely that should produce an error.

Also, there's no reason why you should see that text come back. Only the last "recursion" returns that value. It is then discarded when you "back out" to the next level. In other words, when it passes 10, it returns your string. The next level up, which called it, simply returns then without setting any return value. Try this on line 7, and see what happens...

recursiveTest = recursiveTest(x)