Maybe I'm too tired to see the obvious, could somebody explain why this
simple function is producing 0 instead of a result?

Public Function AreaCircle(Radius) As Double
Const conPi As Single = 3.141592
AreaofCircle = conPi * (Radius ^ 2)
End Function

If I run it as a sub procedure it works fine.

TIA