Thanks...I need to define the Pi value. I had defined function of power.

Public Function Power(ByVal number As Double, ByVal exponent As Double) As Double
 

' number is the base value
 

' exponent is the power to the base number
 

Power = number ^ exponent
 

End Function