SolidWorks二次开发::test1-2-1,求一个球体体积公式

'test1-2-1,求一个球体体积公式
'公式描述：公式中R为球的半径，V为球的体积V=(4/3)πr^3。
Const dblPi As Double = 3.1415926 '声明常数
Dim intRadius As Integer
Dim dblVolume As Double

Sub main()

' dblPi = 3.14159
intRadius = 10
dblVolume = (4 / 3) * dblPi * intRadius ^ 3
MsgBox Round(dblVolume, 2) 'Round函数四舍五入保留小数2位
End Sub