WorksheetFunction.Pi (Excel)

Retorna o número 3,14159265358979, a constante matemática pi, com precisão de 15 dígitos.

Dim dblPi As Double
dblPi = WorksheetFunction.Pi()