Problema VBA ^ Error de compilación se esperaba:fin de instrucción

Question

Option Explicit

Function ConeVol(R As Double, h As Double) As Double
Dim pi As Double
pi = 4 * Atn(1)
ConeVol = pi*R^2+h/3

End Function

La parte resaltada en negrilla me esta generando Error de compilación se esperaba:fin de instrucción

aiuda :(