WorksheetFunction.Pi (Excel)

Returns the number 3.14159265358979, the mathematical constant pi, accurate to 15 digits.

Dim dblPi As Double
dblPi = WorksheetFunction.Pi()