Private Function CubedRoot(ByVal dNum As Double) As Double Return CType(CType(dNum ^ (1 / 3), Decimal), Double) End Function