Error: Out of stack space

[30percent]

Hi,

I have the following code:

Function get_Date()

get_Date() = Date

End Function

Sub test2()

this = get_Date()


End Sub

When I run it, I got the error message:

Run-time error '28':
Out of stack space

Could someone please help?

thank you!

 

[6StringJazzer]

get_Date() = Date

This creates a recursive call to get_Date, which goes on forever until you run out of stack space.

The correct way to return a value from a function is to use the function name with no parens. Do this:

get_Date = Date