CallerSub

Function CubeRoot(number)

CubeRoot = number ^ (1 / 3)

End Function

Sub CallerSub()

    Ans = CubeRoot(125)

    MsgBox Ans

End Sub