Try:

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

or

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

Depending on your preference - the function name is different to the
variable

Regards

Trevor


"headly" wrote in message
...
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