Double type parameter
Sub CubeRoot(ByVal dblNumber As Double) dblNumber = dblNumber ^ (1 / 3) End Sub Sub CubeRootWrapper() Dim dblVariable As Double dblVariable = 8 Debug.Print "Before: " & dblVariable CubeRoot dblVariable Debug.Print "After: " & dblVariable End Sub