Sub CallerSub() Ans = CubeRoot(125) MsgBox Ans End Sub Function CubeRoot(number) CubeRoot = number ^ (1 / 3) End Function