高分 VB函数返回值问题

Public Function Calc(ByVal a As Decimal, ByVal constd As Decimal) As Decimal

If (a + constd) * (a + constd) < 2 Then

result = a + constd
Calc(result, constd)

Else

constd = constd / 10
If constd = 0.00000000000001 Then Return result
Calc(result, constd)

End If

End Function

为什么这个函数只返回0？？如果改成下面这样就能用msgbox返回一个值，然后return的值还是0.

Else

constd = constd / 10
If constd = 0.00000000000001 Then
MsgBox(result)
Return result
End If

Calc(result, constd)

End If
回答得好还有加分
3L,else中的msgbox能正确返回值证明这时的result已经被赋值，但是return的结果却是0.根据你说的我把return result写到下面这个部分返回值仍是零。只有写在函数的最后才能返回值呢。麻烦你自己稍微试一下，你离结果只有1步了，我追50分给你。

麻烦3L看看这个：函数返回值问题 vb 返回值 问题 VB返回值问题 VB函数返回值怎么写？ VB choose函数的返回值 函数的返回值问题 函数返回值的问题 自定义函数返回值问题 高手请进 vb中的函数返回值能否给数组？？？？ vb 中如何查看一个陌生函数的返回值？